home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1991-06-22 | 15.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 3e f4 20 3e 20 | 3c 42 61 73 69 63 4c 69 |...>. > |<BasicLi|
|00000010| 62 24 44 69 72 3e 2e 46 | 6c 6f 61 74 41 73 73 20 |b$Dir>.F|loatAss |
|00000020| 20 20 20 20 20 20 20 20 | 46 4e 66 6c 6f 61 74 28 | |FNfloat(|
|00000030| 22 3c 6f 70 65 72 61 74 | 69 6f 6e 3e 22 29 0d 00 |"<operat|ion>")..|
|00000040| 14 04 0d 00 1e 1c 46 6c | 6f 61 74 69 6e 67 20 70 |......Fl|oating p|
|00000050| 6f 69 6e 74 20 61 73 73 | 65 6d 62 6c 65 72 0d 00 |oint ass|embler..|
|00000060| 28 04 0d 00 32 24 57 72 | 69 74 74 65 6e 20 62 79 |(...2$Wr|itten by|
|00000070| 20 53 74 65 70 68 65 6e | 20 42 75 72 6b 65 2c 20 | Stephen| Burke, |
|00000080| 32 2f 36 2f 38 39 0d 00 | 3c 1c 50 73 65 75 64 6f |2/6/89..|<.Pseudo|
|00000090| 2d 6f 70 73 20 61 64 64 | 65 64 20 32 32 2f 36 2f |-ops add|ed 22/6/|
|000000a0| 39 31 0d 00 46 04 0d 00 | 50 27 55 73 65 20 a4 66 |91..F...|P'Use .f|
|000000b0| 6c 6f 61 74 28 22 4d 55 | 46 47 45 45 50 20 46 31 |loat("MU|FGEEP F1|
|000000c0| 2c 46 32 2c 46 33 22 29 | 20 65 74 63 2e 0d 00 5a |,F2,F3")| etc...Z|
|000000d0| 04 0d 00 64 45 41 6c 73 | 6f 20 73 75 70 70 6f 72 |...dEAls|o suppor|
|000000e0| 74 73 20 74 68 65 20 70 | 73 65 75 64 6f 2d 6f 70 |ts the p|seudo-op|
|000000f0| 65 72 61 74 69 6f 6e 73 | 20 45 51 55 46 53 2c 20 |erations| EQUFS, |
|00000100| 45 51 55 46 44 2c 20 45 | 51 55 46 45 20 61 6e 64 |EQUFD, E|QUFE and|
|00000110| 20 45 51 55 46 50 0d 00 | 6e 3f 74 6f 20 67 65 6e | EQUFP..|n?to gen|
|00000120| 65 72 61 74 65 20 63 6f | 6e 73 74 61 6e 74 73 20 |erate co|nstants |
|00000130| 6f 66 20 74 68 65 20 61 | 70 70 72 6f 70 72 69 61 |of the a|ppropria|
|00000140| 74 65 20 70 72 65 63 69 | 73 69 6f 6e 2c 20 61 6e |te preci|sion, an|
|00000150| 64 20 4f 50 54 0d 00 78 | 42 74 6f 20 73 65 74 20 |d OPT..x|Bto set |
|00000160| 74 68 65 20 6f 70 74 69 | 6f 6e 73 2e 20 45 51 55 |the opti|ons. EQU|
|00000170| 46 44 20 61 6e 64 20 45 | 51 55 46 45 20 72 65 71 |FD and E|QUFE req|
|00000180| 75 69 72 65 20 74 68 65 | 20 66 6c 6f 61 74 69 6e |uire the| floatin|
|00000190| 67 2d 70 6f 69 6e 74 0d | 00 82 45 65 6d 75 6c 61 |g-point.|..Eemula|
|000001a0| 74 6f 72 20 74 6f 20 62 | 65 20 69 6e 73 74 61 6c |tor to b|e instal|
|000001b0| 6c 65 64 2c 20 61 73 20 | 74 68 65 79 20 66 69 72 |led, as |they fir|
|000001c0| 73 74 20 61 73 73 65 6d | 62 6c 65 20 61 20 70 61 |st assem|ble a pa|
|000001d0| 63 6b 65 64 20 64 65 63 | 69 6d 61 6c 0d 00 8c 42 |cked dec|imal...B|
|000001e0| 63 6f 6e 73 74 61 6e 74 | 20 61 6e 64 20 74 68 65 |constant| and the|
|000001f0| 6e 20 75 73 65 20 61 20 | 73 68 6f 72 74 20 66 6c |n use a |short fl|
|00000200| 6f 61 74 69 6e 67 2d 70 | 6f 69 6e 74 20 72 6f 75 |oating-p|oint rou|
|00000210| 74 69 6e 65 20 74 6f 20 | 64 6f 20 74 68 65 0d 00 |tine to |do the..|
|00000220| 96 44 72 65 71 75 69 72 | 65 64 20 63 6f 6e 76 65 |.Drequir|ed conve|
|00000230| 72 73 69 6f 6e 2e 20 42 | 61 73 69 63 20 63 61 6e |rsion. B|asic can|
|00000240| 27 74 20 62 65 20 75 73 | 65 64 2c 20 61 73 20 69 |'t be us|ed, as i|
|00000250| 74 20 64 6f 65 73 6e 27 | 74 20 68 61 76 65 20 74 |t doesn'|t have t|
|00000260| 68 65 0d 00 a0 17 72 65 | 71 75 69 72 65 64 20 70 |he....re|quired p|
|00000270| 72 65 63 69 73 69 6f 6e | 2e 0d 00 aa 04 0d 00 b4 |recision|........|
|00000280| 16 49 6e 74 65 72 6e 61 | 6c 20 72 6f 75 74 69 6e |.Interna|l routin|
|00000290| 65 73 3a 0d 00 be 04 0d | 00 c8 31 f2 73 70 6c 69 |es:.....|..1.spli|
|000002a0| 74 20 20 20 20 f2 6f 70 | 74 20 20 20 20 20 20 20 |t .op|t |
|000002b0| 20 f2 65 71 75 66 70 20 | 20 20 f2 65 71 75 66 73 | .equfp | .equfs|
|000002c0| 20 20 20 f2 65 71 75 66 | 0d 00 d2 33 f2 6f 70 63 | .equf|...3.opc|
|000002d0| 6f 64 65 20 20 20 f2 6d | 6e 65 6d 20 20 20 20 20 |ode .m|nem |
|000002e0| 20 20 a4 67 65 74 72 65 | 67 20 20 20 20 f2 65 6e | .getre|g .en|
|000002f0| 63 6f 64 65 20 20 f2 72 | 65 67 73 0d 00 dc 22 f2 |code .r|egs...".|
|00000300| 72 65 67 61 64 64 72 20 | 20 f2 6c 6f 61 64 73 74 |regaddr | .loadst|
|00000310| 6f 72 65 20 20 f2 73 65 | 74 61 64 64 72 0d 00 e6 |ore .se|taddr...|
|00000320| 04 0d 00 f0 1d 47 65 6e | 65 72 61 6c 20 70 75 72 |.....Gen|eral pur|
|00000330| 70 6f 73 65 20 72 6f 75 | 74 69 6e 65 73 3a 0d 00 |pose rou|tines:..|
|00000340| fa 04 0d 01 04 3c a4 69 | 73 6e 75 6d 20 20 20 20 |.....<.i|snum |
|00000350| 20 20 a4 69 73 73 6e 75 | 6d 20 20 20 20 20 20 20 | .issnu|m |
|00000360| a4 69 73 66 6e 75 6d 20 | 20 20 20 a4 69 73 65 78 |.isfnum | .isex|
|00000370| 70 6e 75 6d 20 20 a4 74 | 6f 75 70 70 65 72 0d 01 |pnum .t|oupper..|
|00000380| 0e 04 0d 01 18 44 54 68 | 65 20 67 6c 6f 62 61 6c |.....DTh|e global|
|00000390| 20 73 74 61 74 69 63 20 | 76 61 72 69 61 62 6c 65 | static |variable|
|000003a0| 20 5a 25 20 69 73 20 75 | 73 65 64 20 74 6f 20 68 | Z% is u|sed to h|
|000003b0| 6f 6c 64 20 74 68 65 20 | 6f 70 74 69 6f 6e 20 6e |old the |option n|
|000003c0| 75 6d 62 65 72 2e 0d 01 | 22 04 0d 01 2c 2b 41 6c |umber...|"...,+Al|
|000003d0| 6c 20 6f 74 68 65 72 20 | 69 6e 74 65 72 6e 61 6c |l other |internal|
|000003e0| 20 76 61 72 69 61 62 6c | 65 73 20 61 72 65 20 6c | variabl|es are l|
|000003f0| 6f 63 61 6c 2e 0d 01 36 | 3f 41 6c 6c 20 61 72 65 |ocal...6|?All are|
|00000400| 20 65 69 74 68 65 72 20 | 69 6e 74 65 67 65 72 20 | either |integer |
|00000410| 6f 72 20 73 74 72 69 6e | 67 2c 20 73 6f 20 65 78 |or strin|g, so ex|
|00000420| 70 72 65 73 73 69 6f 6e | 73 20 63 6f 6e 74 61 69 |pression|s contai|
|00000430| 6e 69 6e 67 0d 01 40 3d | 6f 6e 6c 79 20 72 65 61 |ning..@=|only rea|
|00000440| 6c 20 76 61 72 69 61 62 | 6c 65 73 20 61 72 65 20 |l variab|les are |
|00000450| 67 75 61 72 61 6e 74 65 | 65 64 20 74 6f 20 65 76 |guarante|ed to ev|
|00000460| 61 6c 75 61 74 65 20 63 | 6f 72 72 65 63 74 6c 79 |aluate c|orrectly|
|00000470| 2e 0d 01 4a 04 0d 01 54 | 47 45 58 43 45 50 54 49 |...J...T|GEXCEPTI|
|00000480| 4f 4e 3a 20 50 43 20 61 | 6e 64 20 70 63 20 61 72 |ON: PC a|nd pc ar|
|00000490| 65 20 6d 61 64 65 20 6c | 6f 63 61 6c 20 61 6e 64 |e made l|ocal and|
|000004a0| 20 65 71 75 61 6c 20 74 | 6f 20 31 35 20 77 68 65 | equal t|o 15 whe|
|000004b0| 6e 20 65 76 61 6c 75 61 | 74 69 6e 67 0d 01 5e 15 |n evalua|ting..^.|
|000004c0| 72 65 67 69 73 74 65 72 | 20 6e 75 6d 62 65 72 73 |register| numbers|
|000004d0| 2e 0d 01 68 04 0d 01 72 | 4c 2d 2d 2d 2d 2d 2d 2d |...h...r|L-------|
|000004e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000520| 2d 0d 01 7c 04 0d 01 86 | 13 dd 20 a4 66 6c 6f 61 |-..|....|.. .floa|
|00000530| 74 28 63 6f 64 65 24 29 | 0d 01 90 04 0d 01 9a 15 |t(code$)|........|
|00000540| ea 20 4e 25 2c 51 25 2c | 52 24 28 29 2c 52 25 28 |. N%,Q%,|R$(),R%(|
|00000550| 29 0d 01 a4 20 ea 20 6f | 70 63 24 2c 63 63 24 2c |)... . o|pc$,cc$,|
|00000560| 70 72 65 63 24 2c 72 6f | 75 6e 64 24 2c 61 64 64 |prec$,ro|und$,add|
|00000570| 24 0d 01 ae 34 ea 20 77 | 6f 72 64 25 2c 63 63 25 |$...4. w|ord%,cc%|
|00000580| 2c 6d 6e 65 6d 25 2c 6d | 6f 6e 61 64 25 2c 65 25 |,mnem%,m|onad%,e%|
|00000590| 2c 67 72 6f 75 70 25 2c | 70 72 65 25 2c 77 62 25 |,group%,|pre%,wb%|
|000005a0| 2c 69 6d 6d 25 0d 01 b8 | 13 ea 20 62 75 66 66 25 |,imm%...|.. buff%|
|000005b0| 2c 6c 65 6e 25 2c 40 25 | 0d 01 c2 07 ea 20 85 0d |,len%,@%|..... ..|
|000005c0| 01 cc 11 de 20 52 24 28 | 33 29 2c 52 25 28 33 29 |.... R$(|3),R%(3)|
|000005d0| 0d 01 d6 04 0d 01 e0 35 | e7 20 28 5a 25 20 80 20 |.......5|. (Z% . |
|000005e0| 25 31 30 30 29 20 8c 20 | 4e 25 20 3d 20 50 25 3a |%100) . |N% = P%:|
|000005f0| 51 25 20 3d 20 4f 25 20 | 8b 20 4e 25 20 3d 20 50 |Q% = O% |. N% = P|
|00000600| 25 3a 51 25 20 3d 20 50 | 25 0d 01 ea 04 0d 01 f4 |%:Q% = P|%.......|
|00000610| 3e f4 20 49 66 20 61 6e | 20 65 72 72 6f 72 20 6f |>. If an| error o|
|00000620| 63 63 75 72 73 2c 20 70 | 72 69 6e 74 20 61 20 6d |ccurs, p|rint a m|
|00000630| 65 73 73 61 67 65 20 61 | 6e 64 20 61 73 73 65 6d |essage a|nd assem|
|00000640| 62 6c 65 20 61 20 6e 6f | 2d 6f 70 0d 01 fe 12 e7 |ble a no|-op.....|
|00000650| 20 28 5a 25 20 80 20 25 | 31 30 29 20 8c 0d 02 08 | (Z% . %|10) ....|
|00000660| 76 20 20 ee 20 85 20 ea | 20 f1 20 22 45 72 72 6f |v . . .| . "Erro|
|00000670| 72 20 69 6e 20 66 6c 6f | 61 74 69 6e 67 20 70 6f |r in flo|ating po|
|00000680| 69 6e 74 20 61 73 73 65 | 6d 62 6c 65 72 3a 22 27 |int asse|mbler:"'|
|00000690| f6 24 3b 22 20 77 68 69 | 6c 65 20 61 73 73 65 6d |.$;" whi|le assem|
|000006a0| 62 6c 69 6e 67 20 22 63 | 6f 64 65 24 3a 21 51 25 |bling "c|ode$:!Q%|
|000006b0| 20 3d 20 26 45 31 41 30 | 30 30 30 30 3a 51 25 20 | = &E1A0|0000:Q% |
|000006c0| 2b 3d 20 34 3a f2 73 65 | 74 61 64 64 72 3a 20 3d |+= 4:.se|taddr: =|
|000006d0| 20 22 22 0d 02 12 05 cc | 0d 02 1c 32 20 20 ee 20 | "".....|...2 . |
|000006e0| 85 20 ea 20 21 51 25 20 | 3d 20 26 45 31 41 30 30 |. . !Q% |= &E1A00|
|000006f0| 30 30 30 3a 51 25 20 2b | 3d 20 34 3a f2 73 65 74 |000:Q% +|= 4:.set|
|00000700| 61 64 64 72 3a 20 3d 20 | 22 22 0d 02 26 05 cd 0d |addr: = |""..&...|
|00000710| 02 30 04 0d 02 3a 3c f4 | 20 53 70 6c 69 74 20 74 |.0...:<.| Split t|
|00000720| 68 65 20 73 74 72 69 6e | 67 20 69 6e 74 6f 20 6f |he strin|g into o|
|00000730| 70 63 6f 64 65 20 61 6e | 64 20 75 70 20 74 6f 20 |pcode an|d up to |
|00000740| 74 68 72 65 65 20 61 72 | 67 75 6d 65 6e 74 73 0d |three ar|guments.|
|00000750| 02 44 19 f2 73 70 6c 69 | 74 28 63 6f 64 65 24 2c |.D..spli|t(code$,|
|00000760| 6f 70 63 24 2c 52 24 29 | 0d 02 4e 04 0d 02 58 20 |opc$,R$)|..N...X |
|00000770| f4 20 43 68 65 63 6b 20 | 66 6f 72 20 61 6e 20 4f |. Check |for an O|
|00000780| 50 54 20 73 74 61 74 65 | 6d 65 6e 74 0d 02 62 24 |PT state|ment..b$|
|00000790| e7 20 6f 70 63 24 3d 22 | 4f 50 54 22 20 5a 25 20 |. opc$="|OPT" Z% |
|000007a0| 3d 20 a0 28 52 24 28 31 | 29 29 3a 20 3d 20 22 22 |= .(R$(1|)): = ""|
|000007b0| 0d 02 6c 04 0d 02 76 1a | f4 20 43 68 65 63 6b 20 |..l...v.|. Check |
|000007c0| 66 6f 72 20 70 73 65 75 | 64 6f 2d 6f 70 73 0d 02 |for pseu|do-ops..|
|000007d0| 80 35 e7 20 c0 6f 70 63 | 24 2c 35 29 3d 22 45 51 |.5. .opc|$,5)="EQ|
|000007e0| 55 46 50 22 20 8c 20 f2 | 65 71 75 66 70 28 52 24 |UFP" . .|equfp(R$|
|000007f0| 28 31 29 29 3a f2 73 65 | 74 61 64 64 72 3a 20 3d |(1)):.se|taddr: =|
|00000800| 20 22 22 0d 02 8a 35 e7 | 20 c0 6f 70 63 24 2c 35 | ""...5.| .opc$,5|
|00000810| 29 3d 22 45 51 55 46 53 | 22 20 8c 20 f2 65 71 75 |)="EQUFS|" . .equ|
|00000820| 66 73 28 52 24 28 31 29 | 29 3a f2 73 65 74 61 64 |fs(R$(1)|):.setad|
|00000830| 64 72 3a 20 3d 20 22 22 | 0d 02 94 38 e7 20 c0 6f |dr: = ""|...8. .o|
|00000840| 70 63 24 2c 34 29 3d 22 | 45 51 55 46 22 20 8c 20 |pc$,4)="|EQUF" . |
|00000850| f2 65 71 75 66 28 6f 70 | 63 24 2c 52 24 28 31 29 |.equf(op|c$,R$(1)|
|00000860| 29 3a f2 73 65 74 61 64 | 64 72 3a 20 3d 20 22 22 |):.setad|dr: = ""|
|00000870| 0d 02 9e 04 0d 02 a8 3f | f4 20 43 72 61 63 6b 20 |.......?|. Crack |
|00000880| 74 68 65 20 6f 70 63 6f | 64 65 20 74 6f 20 67 65 |the opco|de to ge|
|00000890| 74 20 74 68 65 20 63 6f | 6e 64 69 74 69 6f 6e 20 |t the co|ndition |
|000008a0| 63 6f 64 65 2c 20 70 72 | 65 63 69 73 69 6f 6e 20 |code, pr|ecision |
|000008b0| 61 6e 64 0d 02 b2 15 f4 | 20 72 6f 75 6e 64 69 6e |and.....| roundin|
|000008c0| 67 20 66 6f 72 6d 61 74 | 0d 02 bc 2b f2 6f 70 63 |g format|...+.opc|
|000008d0| 6f 64 65 28 6f 70 63 24 | 2c 52 24 28 32 29 2c 63 |ode(opc$|,R$(2),c|
|000008e0| 63 24 2c 70 72 65 63 24 | 2c 72 6f 75 6e 64 24 2c |c$,prec$|,round$,|
|000008f0| 65 25 29 0d 02 c6 04 0d | 02 d0 43 63 63 25 20 3d |e%).....|..Ccc% =|
|00000900| 20 a7 22 45 51 20 4e 45 | 20 43 53 20 43 43 20 4d | ."EQ NE| CS CC M|
|00000910| 49 20 50 4c 20 56 53 20 | 56 43 20 48 49 20 4c 53 |I PL VS |VC HI LS|
|00000920| 20 47 45 20 4c 54 20 47 | 54 20 4c 45 20 41 4c 20 | GE LT G|T LE AL |
|00000930| 4e 56 22 2c 63 63 24 29 | 2d 31 0d 02 da 24 e7 20 |NV",cc$)|-1...$. |
|00000940| 63 63 25 3c 30 20 85 20 | 31 2c 22 42 61 64 20 63 |cc%<0 . |1,"Bad c|
|00000950| 6f 6e 64 69 74 69 6f 6e | 20 63 6f 64 65 22 0d 02 |ondition| code"..|
|00000960| e4 3f f4 20 43 43 20 69 | 6e 20 62 69 74 73 20 32 |.?. CC i|n bits 2|
|00000970| 38 2d 33 31 2c 20 62 69 | 74 73 20 38 2d 31 31 20 |8-31, bi|ts 8-11 |
|00000980| 61 6c 77 61 79 73 20 30 | 30 30 31 20 28 63 6f 2d |always 0|001 (co-|
|00000990| 70 72 6f 63 65 73 73 6f | 72 20 49 44 29 0d 02 ee |processo|r ID)...|
|000009a0| 28 77 6f 72 64 25 20 3d | 20 28 28 63 63 25 20 81 |(word% =| ((cc% .|
|000009b0| 20 33 29 3c 3c 32 38 29 | 20 84 20 28 25 30 30 30 | 3)<<28)| . (%000|
|000009c0| 31 3c 3c 38 29 0d 02 f8 | 04 0d 03 02 1d f4 20 4e |1<<8)...|...... N|
|000009d0| 6f 77 20 64 65 63 6f 64 | 65 20 74 68 65 20 6d 6e |ow decod|e the mn|
|000009e0| 65 6d 6f 6e 69 63 0d 03 | 0c 26 f2 6d 6e 65 6d 28 |emonic..|.&.mnem(|
|000009f0| 6f 70 63 24 2c 65 25 2c | 6d 6e 65 6d 25 2c 6d 6f |opc$,e%,|mnem%,mo|
|00000a00| 6e 61 64 25 2c 67 72 6f | 75 70 25 29 0d 03 16 2e |nad%,gro|up%)....|
|00000a10| 77 6f 72 64 25 20 3d 20 | 77 6f 72 64 25 20 84 20 |word% = |word% . |
|00000a20| 28 6d 6e 65 6d 25 3c 3c | 32 30 29 20 84 20 28 6d |(mnem%<<|20) . (m|
|00000a30| 6f 6e 61 64 25 3c 3c 31 | 35 29 0d 03 20 04 0d 03 |onad%<<1|5).. ...|
|00000a40| 2a 43 f4 20 44 65 61 6c | 20 77 69 74 68 20 74 68 |*C. Deal| with th|
|00000a50| 65 20 72 65 67 69 73 74 | 65 72 73 2e 20 47 72 6f |e regist|ers. Gro|
|00000a60| 75 70 20 31 20 28 6c 6f | 61 64 2f 73 74 6f 72 65 |up 1 (lo|ad/store|
|00000a70| 29 20 68 61 76 65 20 61 | 64 64 72 65 73 73 65 73 |) have a|ddresses|
|00000a80| 2c 0d 03 34 25 f4 20 61 | 6e 64 20 6d 75 73 74 20 |,..4%. a|nd must |
|00000a90| 62 65 20 74 72 65 61 74 | 65 64 20 73 65 70 61 72 |be treat|ed separ|
|00000aa0| 61 74 65 6c 79 2e 0d 03 | 3e 04 0d 03 48 10 e7 20 |ately...|>...H.. |
|00000ab0| 67 72 6f 75 70 25 3d 31 | 20 8c 0d 03 52 1e 20 20 |group%=1| ...R. |
|00000ac0| f2 72 65 67 61 64 64 72 | 28 52 24 2c 52 25 2c 70 |.regaddr|(R$,R%,p|
|00000ad0| 72 65 25 2c 77 62 25 29 | 0d 03 5c 29 20 20 f2 6c |re%,wb%)|..\) .l|
|00000ae0| 6f 61 64 73 74 6f 72 65 | 28 77 6f 72 64 25 2c 70 |oadstore|(word%,p|
|00000af0| 72 65 63 24 2c 52 25 2c | 70 72 65 25 2c 77 62 25 |rec$,R%,|pre%,wb%|
|00000b00| 29 0d 03 66 05 cc 0d 03 | 70 25 20 20 f2 72 65 67 |)..f....|p% .reg|
|00000b10| 73 28 52 24 2c 67 72 6f | 75 70 25 2c 6d 6f 6e 61 |s(R$,gro|up%,mona|
|00000b20| 64 25 2c 52 25 2c 69 6d | 6d 25 29 0d 03 7a 30 20 |d%,R%,im|m%)..z0 |
|00000b30| 20 f2 65 6e 63 6f 64 65 | 28 77 6f 72 64 25 2c 67 | .encode|(word%,g|
|00000b40| 72 6f 75 70 25 2c 70 72 | 65 63 24 2c 72 6f 75 6e |roup%,pr|ec$,roun|
|00000b50| 64 24 2c 52 25 2c 69 6d | 6d 25 29 0d 03 84 05 cd |d$,R%,im|m%).....|
|00000b60| 0d 03 8e 04 0d 03 98 2d | f4 20 4f 70 74 69 6f 6e |.......-|. Option|
|00000b70| 61 6c 6c 79 20 70 72 69 | 6e 74 20 6f 75 74 20 74 |ally pri|nt out t|
|00000b80| 68 65 20 61 73 73 65 6d | 62 6c 65 64 20 63 6f 64 |he assem|bled cod|
|00000b90| 65 0d 03 a2 10 e7 20 28 | 5a 25 20 80 20 31 29 20 |e..... (|Z% . 1) |
|00000ba0| 8c 0d 03 ac 13 20 20 40 | 25 20 3d 20 26 31 30 30 |..... @|% = &100|
|00000bb0| 30 30 30 38 0d 03 b6 11 | 20 20 61 64 64 24 20 3d |0008....| add$ =|
|00000bc0| 20 c3 7e 4e 25 0d 03 c0 | 23 20 20 61 64 64 24 20 | .~N%...|# add$ |
|00000bd0| 3d 20 c4 38 2d a9 28 61 | 64 64 24 29 2c 22 30 22 |= .8-.(a|dd$),"0"|
|00000be0| 29 20 2b 20 61 64 64 24 | 0d 03 ca 23 20 20 f1 20 |) + add$|...# . |
|00000bf0| 61 64 64 24 3b 22 20 22 | 3b 7e 77 6f 72 64 25 3b |add$;" "|;~word%;|
|00000c00| 89 28 31 31 29 3b 63 6f | 64 65 24 0d 03 d4 05 cd |.(11);co|de$.....|
|00000c10| 0d 03 de 14 e7 20 28 5a | 25 20 80 20 25 31 30 30 |..... (Z|% . %100|
|00000c20| 30 29 20 8c 0d 03 e8 36 | 20 20 c8 99 20 22 44 65 |0) ....6| .. "De|
|00000c30| 62 75 67 67 65 72 5f 44 | 69 73 61 73 73 65 6d 62 |bugger_D|isassemb|
|00000c40| 6c 65 22 2c 77 6f 72 64 | 25 2c 4e 25 20 b8 20 2c |le",word|%,N% . ,|
|00000c50| 62 75 66 66 25 2c 6c 65 | 6e 25 0d 03 f2 1f 20 20 |buff%,le|n%.... |
|00000c60| 6c 65 6e 25 20 2b 3d 20 | 31 3a 62 75 66 66 25 3f |len% += |1:buff%?|
|00000c70| 6c 65 6e 25 20 3d 20 31 | 33 0d 03 fc 13 20 20 40 |len% = 1|3.... @|
|00000c80| 25 20 3d 20 26 31 30 30 | 30 30 30 38 0d 04 06 11 |% = &100|0008....|
|00000c90| 20 20 61 64 64 24 20 3d | 20 c3 7e 4e 25 0d 04 10 | add$ =| .~N%...|
|00000ca0| 23 20 20 61 64 64 24 20 | 3d 20 c4 38 2d a9 28 61 |# add$ |= .8-.(a|
|00000cb0| 64 64 24 29 2c 22 30 22 | 29 20 2b 20 61 64 64 24 |dd$),"0"|) + add$|
|00000cc0| 0d 04 1a 24 20 20 f1 20 | 61 64 64 24 3b 22 20 22 |...$ . |add$;" "|
|00000cd0| 3b 7e 77 6f 72 64 25 3b | 89 28 31 31 29 3b 24 62 |;~word%;|.(11);$b|
|00000ce0| 75 66 66 25 0d 04 2e 05 | cd 0d 04 38 04 0d 04 42 |uff%....|...8...B|
|00000cf0| 2d f4 20 46 69 6e 61 6c | 6c 79 2c 20 70 75 74 20 |-. Final|ly, put |
|00000d00| 74 68 65 20 69 6e 73 74 | 72 75 63 74 69 6f 6e 20 |the inst|ruction |
|00000d10| 69 6e 20 6d 65 6d 6f 72 | 79 2e 0d 04 4c 17 21 51 |in memor|y...L.!Q|
|00000d20| 25 20 3d 20 77 6f 72 64 | 25 3a 51 25 20 2b 3d 20 |% = word|%:Q% += |
|00000d30| 34 0d 04 56 04 0d 04 60 | 0c f2 73 65 74 61 64 64 |4..V...`|..setadd|
|00000d40| 72 0d 04 6a 04 0d 04 74 | 08 3d 20 22 22 0d 04 7e |r..j...t|.= ""..~|
|00000d50| 04 0d 04 88 4d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |....M---|--------|
|00000d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 04 |--------|------..|
|00000da0| 92 04 0d 04 9c 0e dd 20 | f2 73 65 74 61 64 64 72 |....... |.setaddr|
|00000db0| 0d 04 a6 04 0d 04 b0 35 | e7 20 28 5a 25 20 80 20 |.......5|. (Z% . |
|00000dc0| 25 31 30 30 29 20 8c 20 | 50 25 20 2b 3d 20 28 51 |%100) . |P% += (Q|
|00000dd0| 25 20 2d 20 4f 25 29 3a | 4f 25 20 3d 20 51 25 20 |% - O%):|O% = Q% |
|00000de0| 8b 20 50 25 20 3d 20 51 | 25 0d 04 ba 04 0d 04 c4 |. P% = Q|%.......|
|00000df0| 05 e1 0d 04 ce 04 0d 04 | d8 4d 2d 2d 2d 2d 2d 2d |........|.M------|
|00000e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e40| 2d 2d 2d 0d 04 e2 04 0d | 04 ec 1d dd 20 f2 73 70 |---.....|.... .sp|
|00000e50| 6c 69 74 28 63 6f 64 65 | 24 2c f8 20 6f 70 63 24 |lit(code|$,. opc$|
|00000e60| 2c 52 24 29 0d 04 f6 1a | ea 20 49 25 2c 66 6c 61 |,R$)....|. I%,fla|
|00000e70| 67 25 2c 63 68 61 72 24 | 2c 74 65 6d 70 24 0d 05 |g%,char$|,temp$..|
|00000e80| 00 04 0d 05 0a 15 e3 20 | 49 25 3d 31 20 b8 20 a9 |....... |I%=1 . .|
|00000e90| 28 63 6f 64 65 24 29 0d | 05 14 1a 20 20 63 68 61 |(code$).|... cha|
|00000ea0| 72 24 20 3d 20 c1 63 6f | 64 65 24 2c 49 25 2c 31 |r$ = .co|de$,I%,1|
|00000eb0| 29 0d 05 1e 10 20 20 c8 | 8e 20 63 68 61 72 24 20 |).... .|. char$ |
|00000ec0| ca 0d 05 28 0d 20 20 20 | 20 c9 20 22 20 22 0d 05 |...(. | . " "..|
|00000ed0| 32 4d 20 20 20 20 20 20 | e7 20 6f 70 63 24 3d 22 |2M |. opc$="|
|00000ee0| 22 20 80 20 74 65 6d 70 | 24 3c 3e 22 22 20 8c 20 |" . temp|$<>"" . |
|00000ef0| 6f 70 63 24 20 3d 20 a4 | 74 6f 75 70 70 65 72 28 |opc$ = .|toupper(|
|00000f00| 74 65 6d 70 24 29 3a 74 | 65 6d 70 24 20 3d 20 22 |temp$):t|emp$ = "|
|00000f10| 22 3a 66 6c 61 67 25 20 | 3d 20 31 0d 05 3c 0d 20 |":flag% |= 1..<. |
|00000f20| 20 20 20 c9 20 22 2c 22 | 0d 05 46 1b 20 20 20 20 | . ","|..F. |
|00000f30| 20 20 52 24 28 66 6c 61 | 67 25 29 20 3d 20 74 65 | R$(fla|g%) = te|
|00000f40| 6d 70 24 0d 05 50 1f 20 | 20 20 20 20 20 74 65 6d |mp$..P. | tem|
|00000f50| 70 24 20 3d 20 22 22 3a | 66 6c 61 67 25 20 2b 3d |p$ = "":|flag% +=|
|00000f60| 20 31 0d 05 5a 09 20 20 | 20 20 7f 0d 05 64 1f 20 | 1..Z. | ...d. |
|00000f70| 20 20 20 20 20 74 65 6d | 70 24 20 3d 20 74 65 6d | tem|p$ = tem|
|00000f80| 70 24 20 2b 20 63 68 61 | 72 24 0d 05 6e 07 20 20 |p$ + cha|r$..n. |
|00000f90| cb 0d 05 78 05 ed 0d 05 | 82 15 52 24 28 66 6c 61 |...x....|..R$(fla|
|00000fa0| 67 25 29 20 3d 20 74 65 | 6d 70 24 0d 05 8c 04 0d |g%) = te|mp$.....|
|00000fb0| 05 96 05 e1 0d 05 a0 04 | 0d 05 aa 4c 2d 2d 2d 2d |........|...L----|
|00000fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001000| 2d 2d 2d 2d 0d 05 b4 04 | 0d 05 be 11 dd 20 f2 65 |----....|..... .e|
|00001010| 71 75 66 70 28 52 31 24 | 29 0d 05 c8 3b ea 20 6d |qufp(R1$|)...;. m|
|00001020| 61 6e 74 24 2c 65 78 70 | 24 2c 65 78 70 25 2c 73 |ant$,exp|$,exp%,s|
|00001030| 69 67 6e 25 2c 65 73 69 | 67 6e 25 2c 74 65 73 74 |ign%,esi|gn%,test|
|00001040| 25 2c 70 6f 69 6e 74 25 | 2c 77 6f 72 64 25 2c 49 |%,point%|,word%,I|
|00001050| 25 2c 4a 25 0d 05 d2 04 | 0d 05 dc 2f f4 20 47 65 |%,J%....|.../. Ge|
|00001060| 74 20 76 61 6c 75 65 20 | 69 6e 74 6f 20 6d 61 6e |t value |into man|
|00001070| 74 69 73 73 61 20 2b 20 | 65 78 70 6f 6e 65 6e 74 |tissa + |exponent|
|00001080| 20 66 6f 72 6d 61 74 0d | 05 e6 49 f4 20 54 68 65 | format.|..I. The|
|00001090| 20 6d 61 6e 74 69 73 73 | 61 20 69 73 20 6b 65 70 | mantiss|a is kep|
|000010a0| 74 20 61 73 20 61 20 73 | 74 72 69 6e 67 2c 20 73 |t as a s|tring, s|
|000010b0| 69 6e 63 65 20 69 74 20 | 63 61 6e 20 65 78 63 65 |ince it |can exce|
|000010c0| 65 64 20 74 68 65 20 70 | 72 65 63 69 73 69 6f 6e |ed the p|recision|
|000010d0| 0d 05 f0 19 f4 20 6f 66 | 20 61 20 42 61 73 69 63 |..... of| a Basic|
|000010e0| 20 76 61 72 69 61 62 6c | 65 0d 05 fa 04 0d 06 04 | variabl|e.......|
|000010f0| 14 e7 20 a4 69 73 66 6e | 75 6d 28 52 31 24 29 20 |.. .isfn|um(R1$) |
|00001100| 8c 0d 06 0e 1a 20 20 6d | 61 6e 74 24 20 3d 20 52 |..... m|ant$ = R|
|00001110| 31 24 3a 65 78 70 25 20 | 3d 20 30 0d 06 18 05 cc |1$:exp% |= 0.....|
|00001120| 0d 06 22 25 20 20 e7 20 | ac 20 a4 69 73 65 78 70 |.."% . |. .isexp|
|00001130| 6e 75 6d 28 52 31 24 2c | 6d 61 6e 74 24 2c 65 78 |num(R1$,|mant$,ex|
|00001140| 70 25 29 20 8c 0d 06 2c | 17 20 20 20 20 52 31 24 |p%) ...,|. R1$|
|00001150| 20 3d 20 c3 28 a0 28 52 | 31 24 29 29 0d 06 36 3a | = .(.(R|1$))..6:|
|00001160| 20 20 20 20 e7 20 ac 20 | a4 69 73 65 78 70 6e 75 | . . |.isexpnu|
|00001170| 6d 28 52 31 24 2c 6d 61 | 6e 74 24 2c 65 78 70 25 |m(R1$,ma|nt$,exp%|
|00001180| 29 20 6d 61 6e 74 24 20 | 3d 20 52 31 24 3a 65 78 |) mant$ |= R1$:ex|
|00001190| 70 25 20 3d 20 30 0d 06 | 40 07 20 20 cd 0d 06 4a |p% = 0..|@. ...J|
|000011a0| 05 cd 0d 06 54 2b e7 20 | 94 28 65 78 70 25 29 3e |....T+. |.(exp%)>|
|000011b0| 39 39 39 39 20 85 20 31 | 2c 22 45 78 70 6f 6e 65 |9999 . 1|,"Expone|
|000011c0| 6e 74 20 74 6f 6f 20 6c | 61 72 67 65 22 0d 06 5e |nt too l|arge"..^|
|000011d0| 04 0d 06 68 22 f4 20 47 | 65 74 20 74 68 65 20 73 |...h". G|et the s|
|000011e0| 69 67 6e 20 6f 66 20 74 | 68 65 20 6d 61 6e 74 69 |ign of t|he manti|
|000011f0| 73 73 61 0d 06 72 04 0d | 06 7c 17 73 69 67 6e 25 |ssa..r..|.|.sign%|
|00001200| 20 3d 20 31 3a 74 65 73 | 74 25 20 3d 20 b9 0d 06 | = 1:tes|t% = ...|
|00001210| 86 0c c8 95 20 74 65 73 | 74 25 0d 06 90 14 20 20 |.... tes|t%.... |
|00001220| c8 8e 20 c0 6d 61 6e 74 | 24 2c 31 29 20 ca 0d 06 |.. .mant|$,1) ...|
|00001230| 9a 20 20 20 20 20 c9 20 | 22 2b 22 20 3a 6d 61 6e |. . |"+" :man|
|00001240| 74 24 20 3d 20 c1 6d 61 | 6e 74 24 2c 32 29 0d 06 |t$ = .ma|nt$,2)..|
|00001250| a4 2f 20 20 20 20 c9 20 | 22 2d 22 20 3a 6d 61 6e |./ . |"-" :man|
|00001260| 74 24 20 3d 20 c1 6d 61 | 6e 74 24 2c 32 29 3a 73 |t$ = .ma|nt$,2):s|
|00001270| 69 67 6e 25 20 3d 20 2d | 73 69 67 6e 25 0d 06 ae |ign% = -|sign%...|
|00001280| 13 20 20 20 20 7f 20 74 | 65 73 74 25 20 3d 20 a3 |. . t|est% = .|
|00001290| 0d 06 b8 07 20 20 cb 0d | 06 c2 05 ce 0d 06 cc 1a |.... ..|........|
|000012a0| 73 69 67 6e 25 20 20 3d | 20 28 31 2d 73 69 67 6e |sign% =| (1-sign|
|000012b0| 25 29 20 81 20 32 0d 06 | d6 04 0d 06 e0 35 f4 20 |%) . 2..|.....5. |
|000012c0| 46 69 6e 64 20 74 68 65 | 20 64 65 63 69 6d 61 6c |Find the| decimal|
|000012d0| 20 70 6f 69 6e 74 2c 20 | 61 6e 64 20 61 64 6a 75 | point, |and adju|
|000012e0| 73 74 20 74 68 65 20 65 | 78 70 6f 6e 65 6e 74 0d |st the e|xponent.|
|000012f0| 06 ea 04 0d 06 f4 18 70 | 6f 69 6e 74 25 20 3d 20 |.......p|oint% = |
|00001300| a7 6d 61 6e 74 24 2c 22 | 2e 22 29 0d 06 fe 3a e7 |.mant$,"|.")...:.|
|00001310| 20 70 6f 69 6e 74 25 3e | 30 20 6d 61 6e 74 24 20 | point%>|0 mant$ |
|00001320| 3d 20 c0 6d 61 6e 74 24 | 2c 70 6f 69 6e 74 25 2d |= .mant$|,point%-|
|00001330| 31 29 20 2b 20 c1 6d 61 | 6e 74 24 2c 70 6f 69 6e |1) + .ma|nt$,poin|
|00001340| 74 25 2b 31 29 0d 07 08 | 23 e7 20 70 6f 69 6e 74 |t%+1)...|#. point|
|00001350| 25 3e 32 20 65 78 70 25 | 20 2b 3d 20 28 70 6f 69 |%>2 exp%| += (poi|
|00001360| 6e 74 25 20 2d 20 32 29 | 0d 07 12 22 e7 20 70 6f |nt% - 2)|...". po|
|00001370| 69 6e 74 25 3d 31 20 6d | 61 6e 74 24 20 3d 20 22 |int%=1 m|ant$ = "|
|00001380| 30 22 20 2b 20 6d 61 6e | 74 24 0d 07 1c 25 e7 20 |0" + man|t$...%. |
|00001390| 70 6f 69 6e 74 25 3d 30 | 20 65 78 70 25 20 2b 3d |point%=0| exp% +=|
|000013a0| 20 28 a9 28 6d 61 6e 74 | 24 29 20 2d 20 31 29 0d | (.(mant|$) - 1).|
|000013b0| 07 26 04 0d 07 30 36 f4 | 20 4e 6f 77 20 73 74 72 |.&...06.| Now str|
|000013c0| 69 70 20 6c 65 61 64 69 | 6e 67 20 7a 65 72 6f 73 |ip leadi|ng zeros|
|000013d0| 2c 20 61 6e 64 20 61 64 | 6a 75 73 74 20 74 68 65 |, and ad|just the|
|000013e0| 20 65 78 70 6f 6e 65 6e | 74 0d 07 3a 04 0d 07 44 | exponen|t..:...D|
|000013f0| 0e 70 6f 69 6e 74 25 20 | 3d 20 31 0d 07 4e 1b c8 |.point% |= 1..N..|
|00001400| 95 20 c1 6d 61 6e 74 24 | 2c 70 6f 69 6e 74 25 2c |. .mant$|,point%,|
|00001410| 31 29 3d 22 30 22 0d 07 | 58 11 20 20 70 6f 69 6e |1)="0"..|X. poin|
|00001420| 74 25 20 2b 3d 20 31 0d | 07 62 05 ce 0d 07 6c 3a |t% += 1.|.b....l:|
|00001430| e7 20 70 6f 69 6e 74 25 | 3e a9 28 6d 61 6e 74 24 |. point%|>.(mant$|
|00001440| 29 20 21 51 25 20 3d 20 | 30 3a 51 25 21 34 20 3d |) !Q% = |0:Q%!4 =|
|00001450| 20 30 3a 51 25 21 38 20 | 3d 20 30 3a 51 25 20 2b | 0:Q%!8 |= 0:Q% +|
|00001460| 3d 20 31 32 3a e1 0d 07 | 76 3a e7 20 70 6f 69 6e |= 12:...|v:. poin|
|00001470| 74 25 3e 31 20 65 78 70 | 25 20 2d 3d 20 28 70 6f |t%>1 exp|% -= (po|
|00001480| 69 6e 74 25 20 2d 20 31 | 29 3a 6d 61 6e 74 24 20 |int% - 1|):mant$ |
|00001490| 3d 20 c1 6d 61 6e 74 24 | 2c 70 6f 69 6e 74 25 29 |= .mant$|,point%)|
|000014a0| 0d 07 80 04 0d 07 8a 22 | f4 20 47 65 74 20 74 68 |......."|. Get th|
|000014b0| 65 20 73 69 67 6e 20 6f | 66 20 74 68 65 20 65 78 |e sign o|f the ex|
|000014c0| 70 6f 6e 65 6e 74 0d 07 | 94 04 0d 07 9e 2b 65 73 |ponent..|.....+es|
|000014d0| 69 67 6e 25 20 3d 20 2d | b4 28 65 78 70 25 29 3a |ign% = -|.(exp%):|
|000014e0| e7 20 65 73 69 67 6e 25 | 3c 30 20 65 73 69 67 6e |. esign%|<0 esign|
|000014f0| 25 20 3d 20 30 0d 07 a8 | 14 65 78 70 25 20 20 20 |% = 0...|.exp% |
|00001500| 3d 20 94 28 65 78 70 25 | 29 0d 07 b2 04 0d 07 bc |= .(exp%|).......|
|00001510| 35 f4 20 57 6f 72 6b 20 | 6f 75 74 20 74 68 65 20 |5. Work |out the |
|00001520| 62 79 74 65 20 70 61 74 | 74 65 72 6e 2c 20 61 6e |byte pat|tern, an|
|00001530| 64 20 70 75 74 20 69 74 | 20 69 6e 20 6d 65 6d 6f |d put it| in memo|
|00001540| 72 79 0d 07 c6 04 0d 07 | d0 12 65 78 70 24 20 3d |ry......|..exp$ =|
|00001550| 20 c3 28 65 78 70 25 29 | 0d 07 da 18 77 6f 72 64 | .(exp%)|....word|
|00001560| 25 20 3d 20 28 65 73 69 | 67 6e 25 3c 3c 33 30 29 |% = (esi|gn%<<30)|
|00001570| 0d 07 e4 3a e7 20 a9 28 | 65 78 70 24 29 3d 34 20 |...:. .(|exp$)=4 |
|00001580| 77 6f 72 64 25 20 2b 3d | 20 28 bb 28 c0 65 78 70 |word% +=| (.(.exp|
|00001590| 24 2c 31 29 29 3c 3c 32 | 34 29 3a 65 78 70 24 20 |$,1))<<2|4):exp$ |
|000015a0| 3d 20 c1 65 78 70 24 2c | 32 29 0d 07 ee 3a e7 20 |= .exp$,|2)...:. |
|000015b0| a9 28 65 78 70 24 29 3d | 33 20 77 6f 72 64 25 20 |.(exp$)=|3 word% |
|000015c0| 2b 3d 20 28 bb 28 c0 65 | 78 70 24 2c 31 29 29 3c |+= (.(.e|xp$,1))<|
|000015d0| 3c 32 30 29 3a 65 78 70 | 24 20 3d 20 c1 65 78 70 |<20):exp|$ = .exp|
|000015e0| 24 2c 32 29 0d 07 f8 3a | e7 20 a9 28 65 78 70 24 |$,2)...:|. .(exp$|
|000015f0| 29 3d 32 20 77 6f 72 64 | 25 20 2b 3d 20 28 bb 28 |)=2 word|% += (.(|
|00001600| c0 65 78 70 24 2c 31 29 | 29 3c 3c 31 36 29 3a 65 |.exp$,1)|)<<16):e|
|00001610| 78 70 24 20 3d 20 c1 65 | 78 70 24 2c 32 29 0d 08 |xp$ = .e|xp$,2)..|
|00001620| 02 04 0d 08 0c 1a 77 6f | 72 64 25 20 2b 3d 20 28 |......wo|rd% += (|
|00001630| bb 28 65 78 70 24 29 3c | 3c 31 32 29 0d 08 16 13 |.(exp$)<|<12)....|
|00001640| e3 20 49 25 3d 38 20 b8 | 20 30 20 88 20 2d 34 0d |. I%=8 .| 0 . -4.|
|00001650| 08 20 40 20 20 e7 20 a9 | 28 6d 61 6e 74 24 29 3e |. @ . .|(mant$)>|
|00001660| 30 20 77 6f 72 64 25 20 | 2b 3d 20 28 bb 28 c0 6d |0 word% |+= (.(.m|
|00001670| 61 6e 74 24 2c 31 29 29 | 3c 3c 49 25 29 3a 6d 61 |ant$,1))|<<I%):ma|
|00001680| 6e 74 24 20 3d 20 c1 6d | 61 6e 74 24 2c 32 29 0d |nt$ = .m|ant$,2).|
|00001690| 08 2a 05 ed 0d 08 34 1f | 77 6f 72 64 25 20 3d 20 |.*....4.|word% = |
|000016a0| 77 6f 72 64 25 20 84 20 | 28 73 69 67 6e 25 3c 3c |word% . |(sign%<<|
|000016b0| 33 31 29 0d 08 3e 0f 21 | 51 25 20 3d 20 77 6f 72 |31)..>.!|Q% = wor|
|000016c0| 64 25 0d 08 48 04 0d 08 | 52 12 e3 20 49 25 3d 34 |d%..H...|R.. I%=4|
|000016d0| 20 b8 20 38 20 88 20 34 | 0d 08 5c 0f 20 20 77 6f | . 8 . 4|..\. wo|
|000016e0| 72 64 25 20 3d 20 30 0d | 08 66 16 20 20 e3 20 4a |rd% = 0.|.f. . J|
|000016f0| 25 3d 32 38 20 b8 20 30 | 20 88 20 2d 34 0d 08 70 |%=28 . 0| . -4..p|
|00001700| 42 20 20 20 20 e7 20 a9 | 28 6d 61 6e 74 24 29 3e |B . .|(mant$)>|
|00001710| 30 20 77 6f 72 64 25 20 | 2b 3d 20 28 bb 28 c0 6d |0 word% |+= (.(.m|
|00001720| 61 6e 74 24 2c 31 29 29 | 3c 3c 4a 25 29 3a 6d 61 |ant$,1))|<<J%):ma|
|00001730| 6e 74 24 20 3d 20 c1 6d | 61 6e 74 24 2c 32 29 0d |nt$ = .m|ant$,2).|
|00001740| 08 7a 07 20 20 ed 0d 08 | 84 13 20 20 51 25 21 49 |.z. ...|.. Q%!I|
|00001750| 25 20 3d 20 77 6f 72 64 | 25 0d 08 8e 05 ed 0d 08 |% = word|%.......|
|00001760| 98 04 0d 08 a2 0c 51 25 | 20 2b 3d 20 31 32 0d 08 |......Q%| += 12..|
|00001770| ac 04 0d 08 b6 05 e1 0d | 08 c0 04 0d 08 ca 4c 2d |........|......L-|
|00001780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017c0| 2d 2d 2d 2d 2d 2d 2d 0d | 08 d4 04 0d 08 de 11 dd |-------.|........|
|000017d0| 20 f2 65 71 75 66 73 28 | 52 31 24 29 0d 08 e8 16 | .equfs(|R1$)....|
|000017e0| ea 20 65 78 70 25 2c 6d | 61 6e 74 25 2c 73 69 67 |. exp%,m|ant%,sig|
|000017f0| 6e 25 0d 08 f2 04 0d 08 | fc 10 7c 51 25 20 3d 20 |n%......|..|Q% = |
|00001800| a0 28 52 31 24 29 0d 09 | 06 04 0d 09 10 3f 65 78 |.(R1$)..|.....?ex|
|00001810| 70 25 20 3d 20 51 25 3f | 34 3a e7 20 65 78 70 25 |p% = Q%?|4:. exp%|
|00001820| 3d 30 20 84 20 65 78 70 | 25 3d 32 35 35 20 85 20 |=0 . exp|%=255 . |
|00001830| 32 2c 22 43 6f 6e 73 74 | 61 6e 74 20 6f 75 74 20 |2,"Const|ant out |
|00001840| 6f 66 20 72 61 6e 67 65 | 22 0d 09 1a 04 0d 09 24 |of range|"......$|
|00001850| 25 6d 61 6e 74 25 20 3d | 20 94 28 21 51 25 29 3a |%mant% =| .(!Q%):|
|00001860| 73 69 67 6e 25 20 3d 20 | 51 25 3f 33 20 80 20 26 |sign% = |Q%?3 . &|
|00001870| 38 30 0d 09 2e 04 0d 09 | 38 2a 21 51 25 20 3d 20 |80......|8*!Q% = |
|00001880| 28 73 69 67 6e 25 3c 3c | 32 34 29 20 2b 20 28 65 |(sign%<<|24) + (e|
|00001890| 78 70 25 3c 3c 32 33 29 | 20 2b 20 6d 61 6e 74 25 |xp%<<23)| + mant%|
|000018a0| 0d 09 42 04 0d 09 4c 05 | e1 0d 09 56 04 0d 09 60 |..B...L.|...V...`|
|000018b0| 4c 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |L-------|--------|
|000018c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 09 6a 04 0d 09 74 |--------|-..j...t|
|00001900| 15 dd 20 f2 65 71 75 66 | 28 6f 70 63 24 2c 52 31 |.. .equf|(opc$,R1|
|00001910| 24 29 0d 09 7e 04 0d 09 | 88 0b ea 20 5a 25 2c 50 |$)..~...|... Z%,P|
|00001920| 25 0d 09 92 04 0d 09 9c | 1f 50 25 20 3d 20 51 25 |%.......|.P% = Q%|
|00001930| 3a 41 25 20 3d 20 51 25 | 3a f2 65 71 75 66 70 28 |:A% = Q%|:.equfp(|
|00001940| 52 31 24 29 0d 09 a6 04 | 0d 09 b0 13 c8 8e 20 c1 |R1$)....|...... .|
|00001950| 6f 70 63 24 2c 35 2c 31 | 29 20 ca 0d 09 ba 0b 20 |opc$,5,1|) ..... |
|00001960| 20 c9 20 22 53 22 0d 09 | c4 18 20 20 20 20 5b 20 | . "S"..|.. [ |
|00001970| 20 20 20 20 20 20 20 4f | 50 54 20 20 20 30 0d 09 | O|PT 0..|
|00001980| ce 1f 20 20 20 20 a4 66 | 6c 6f 61 74 28 22 4c 44 |.. .f|loat("LD|
|00001990| 46 50 20 20 46 30 2c 5b | 52 30 5d 22 29 0d 09 d8 |FP F0,[|R0]")...|
|000019a0| 1f 20 20 20 20 a4 66 6c | 6f 61 74 28 22 53 54 46 |. .fl|oat("STF|
|000019b0| 53 20 20 46 30 2c 5b 52 | 30 5d 22 29 0d 09 e2 1d |S F0,[R|0]")....|
|000019c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4d 4f 56 | | MOV|
|000019d0| 20 20 20 50 43 2c 52 31 | 34 0d 09 ec 09 20 20 20 | PC,R1|4.... |
|000019e0| 20 5d 0d 09 f6 13 20 20 | 20 20 51 25 20 3d 20 41 | ].... | Q% = A|
|000019f0| 25 20 2b 20 34 0d 0a 00 | 0b 20 20 c9 20 22 44 22 |% + 4...|. . "D"|
|00001a00| 0d 0a 0a 18 20 20 20 20 | 5b 20 20 20 20 20 20 20 |.... |[ |
|00001a10| 20 4f 50 54 20 20 20 30 | 0d 0a 14 1f 20 20 20 20 | OPT 0|.... |
|00001a20| a4 66 6c 6f 61 74 28 22 | 4c 44 46 50 20 20 46 30 |.float("|LDFP F0|
|00001a30| 2c 5b 52 30 5d 22 29 0d | 0a 1e 1f 20 20 20 20 a4 |,[R0]").|... .|
|00001a40| 66 6c 6f 61 74 28 22 53 | 54 46 44 20 20 46 30 2c |float("S|TFD F0,|
|00001a50| 5b 52 30 5d 22 29 0d 0a | 28 1d 20 20 20 20 20 20 |[R0]")..|(. |
|00001a60| 20 20 20 20 20 20 20 4d | 4f 56 20 20 20 50 43 2c | M|OV PC,|
|00001a70| 52 31 34 0d 0a 32 09 20 | 20 20 20 5d 0d 0a 3c 13 |R14..2. | ]..<.|
|00001a80| 20 20 20 20 51 25 20 3d | 20 41 25 20 2b 20 38 0d | Q% =| A% + 8.|
|00001a90| 0a 46 0b 20 20 c9 20 22 | 45 22 0d 0a 50 18 20 20 |.F. . "|E"..P. |
|00001aa0| 20 20 5b 20 20 20 20 20 | 20 20 20 4f 50 54 20 20 | [ | OPT |
|00001ab0| 20 30 0d 0a 5a 1f 20 20 | 20 20 a4 66 6c 6f 61 74 | 0..Z. | .float|
|00001ac0| 28 22 4c 44 46 50 20 20 | 46 30 2c 5b 52 30 5d 22 |("LDFP |F0,[R0]"|
|00001ad0| 29 0d 0a 64 1f 20 20 20 | 20 a4 66 6c 6f 61 74 28 |)..d. | .float(|
|00001ae0| 22 53 54 46 45 20 20 46 | 30 2c 5b 52 30 5d 22 29 |"STFE F|0,[R0]")|
|00001af0| 0d 0a 6e 1d 20 20 20 20 | 20 20 20 20 20 20 20 20 |..n. | |
|00001b00| 20 4d 4f 56 20 20 20 50 | 43 2c 52 31 34 0d 0a 78 | MOV P|C,R14..x|
|00001b10| 09 20 20 20 20 5d 0d 0a | 82 14 20 20 20 20 51 25 |. ]..|.. Q%|
|00001b20| 20 3d 20 41 25 20 2b 20 | 31 32 0d 0a 8c 24 20 20 | = A% + |12...$ |
|00001b30| 7f 20 85 20 31 2c 22 4e | 6f 20 73 75 63 68 20 73 |. . 1,"N|o such s|
|00001b40| 75 66 66 69 78 20 6f 6e | 20 45 51 55 46 22 0d 0a |uffix on| EQUF"..|
|00001b50| 96 05 cb 0d 0a a0 04 0d | 0a aa 0d d6 20 28 41 25 |........|.... (A%|
|00001b60| 2b 31 32 29 0d 0a b4 04 | 0d 0a be 05 e1 0d 0a c8 |+12)....|........|
|00001b70| 04 0d 0a d2 4c 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |....L---|--------|
|00001b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ba0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 0a dc |--------|-----...|
|00001bc0| 04 0d 0a e6 33 dd 20 f2 | 6f 70 63 6f 64 65 28 6f |....3. .|opcode(o|
|00001bd0| 70 63 24 2c 52 32 24 2c | f8 20 63 63 24 2c f8 20 |pc$,R2$,|. cc$,. |
|00001be0| 70 72 65 63 24 2c f8 20 | 72 6f 75 6e 64 24 2c f8 |prec$,. |round$,.|
|00001bf0| 20 65 25 29 0d 0a f0 15 | ea 20 4c 25 3a 4c 25 20 | e%)....|. L%:L% |
|00001c00| 3d 20 a9 28 6f 70 63 24 | 29 0d 0a fa 04 0d 0b 04 |= .(opc$|).......|
|00001c10| 29 e7 20 c0 6f 70 63 24 | 2c 34 29 3d 22 43 4d 46 |). .opc$|,4)="CMF|
|00001c20| 45 22 20 84 20 c0 6f 70 | 63 24 2c 34 29 3d 22 43 |E" . .op|c$,4)="C|
|00001c30| 4e 46 45 22 20 8c 0d 0b | 0e 1e 20 20 6f 70 63 24 |NFE" ...|.. opc$|
|00001c40| 20 3d 20 c0 6f 70 63 24 | 2c 33 29 2b c1 6f 70 63 | = .opc$|,3)+.opc|
|00001c50| 24 2c 35 29 0d 0b 18 0c | 20 20 65 25 20 3d 20 31 |$,5)....| e% = 1|
|00001c60| 0d 0b 22 05 cc 0d 0b 2c | 0c 20 20 65 25 20 3d 20 |.."....,|. e% = |
|00001c70| 30 0d 0b 36 05 cd 0d 0b | 40 04 0d 0b 4a 0a c8 8e |0..6....|@...J...|
|00001c80| 20 b9 20 ca 0d 0b 54 31 | 20 20 c9 20 4c 25 20 3d | . ...T1| . L% =|
|00001c90| 20 33 20 3a 63 63 24 20 | 3d 20 22 41 4c 22 3a 70 | 3 :cc$ |= "AL":p|
|00001ca0| 72 65 63 24 20 3d 20 22 | 22 3a 72 6f 75 6e 64 24 |rec$ = "|":round$|
|00001cb0| 20 3d 20 22 22 0d 0b 5e | 35 20 20 c9 20 4c 25 20 | = ""..^|5 . L% |
|00001cc0| 3d 20 34 20 3a 63 63 24 | 20 3d 20 22 41 4c 22 3a |= 4 :cc$| = "AL":|
|00001cd0| 70 72 65 63 24 20 3d 20 | c2 6f 70 63 24 29 3a 72 |prec$ = |.opc$):r|
|00001ce0| 6f 75 6e 64 24 20 3d 20 | 22 22 0d 0b 68 40 20 20 |ound$ = |""..h@ |
|00001cf0| c9 20 4c 25 20 3d 20 35 | 20 80 20 52 32 24 20 3d |. L% = 5| . R2$ =|
|00001d00| 20 22 22 20 3a 63 63 24 | 20 3d 20 c2 6f 70 63 24 | "" :cc$| = .opc$|
|00001d10| 2c 32 29 3a 70 72 65 63 | 24 20 3d 20 22 22 3a 72 |,2):prec|$ = "":r|
|00001d20| 6f 75 6e 64 24 20 3d 20 | 22 22 0d 0b 72 3d 20 20 |ound$ = |""..r= |
|00001d30| c9 20 4c 25 20 3d 20 35 | 20 3a 63 63 24 20 3d 20 |. L% = 5| :cc$ = |
|00001d40| 22 41 4c 22 3a 70 72 65 | 63 24 20 3d 20 c1 6f 70 |"AL":pre|c$ = .op|
|00001d50| 63 24 2c 34 2c 31 29 3a | 72 6f 75 6e 64 24 20 3d |c$,4,1):|round$ =|
|00001d60| 20 c2 6f 70 63 24 29 0d | 0b 7c 3b 20 20 c9 20 4c | .opc$).|.|; . L|
|00001d70| 25 20 3d 20 36 20 3a 63 | 63 24 20 3d 20 c1 6f 70 |% = 6 :c|c$ = .op|
|00001d80| 63 24 2c 34 2c 32 29 3a | 70 72 65 63 24 20 3d 20 |c$,4,2):|prec$ = |
|00001d90| c2 6f 70 63 24 29 3a 72 | 6f 75 6e 64 24 20 3d 20 |.opc$):r|ound$ = |
|00001da0| 22 22 0d 0b 86 43 20 20 | c9 20 4c 25 20 3d 20 37 |""...C |. L% = 7|
|00001db0| 20 3a 63 63 24 20 3d 20 | c1 6f 70 63 24 2c 34 2c | :cc$ = |.opc$,4,|
|00001dc0| 32 29 3a 70 72 65 63 24 | 20 3d 20 c1 6f 70 63 24 |2):prec$| = .opc$|
|00001dd0| 2c 36 2c 31 29 3a 72 6f | 75 6e 64 24 20 3d 20 c2 |,6,1):ro|und$ = .|
|00001de0| 6f 70 63 24 29 0d 0b 90 | 1f 20 20 7f 20 85 20 31 |opc$)...|. . . 1|
|00001df0| 2c 22 42 61 64 20 6f 70 | 63 6f 64 65 20 66 6f 72 |,"Bad op|code for|
|00001e00| 6d 61 74 22 0d 0b 9a 05 | cb 0d 0b a4 04 0d 0b ae |mat"....|........|
|00001e10| 05 e1 0d 0b b8 04 0d 0b | c2 4d 2d 2d 2d 2d 2d 2d |........|.M------|
|00001e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e60| 2d 2d 2d 0d 0b cc 04 0d | 0b d6 2e dd 20 f2 6d 6e |---.....|.... .mn|
|00001e70| 65 6d 28 6f 70 63 24 2c | 65 25 2c f8 20 63 6f 64 |em(opc$,|e%,. cod|
|00001e80| 65 25 2c f8 20 6d 6f 6e | 61 64 25 2c f8 20 67 72 |e%,. mon|ad%,. gr|
|00001e90| 6f 75 70 25 29 0d 0b e0 | 04 0d 0b ea 19 6d 6f 6e |oup%)...|.....mon|
|00001ea0| 61 64 25 20 3d 20 30 3a | 67 72 6f 75 70 25 20 3d |ad% = 0:|group% =|
|00001eb0| 20 36 0d 0b f4 11 c8 8e | 20 c0 6f 70 63 24 2c 33 | 6......| .opc$,3|
|00001ec0| 29 20 ca 0d 0b fe 24 20 | 20 c9 20 22 4c 44 46 22 |) ....$ | . "LDF"|
|00001ed0| 20 20 3a 63 6f 64 65 25 | 20 3d 20 31 3a 67 72 6f | :code%| = 1:gro|
|00001ee0| 75 70 25 20 3d 20 31 0d | 0c 08 24 20 20 c9 20 22 |up% = 1.|..$ . "|
|00001ef0| 53 54 46 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 30 |STF" :c|ode% = 0|
|00001f00| 3a 67 72 6f 75 70 25 20 | 3d 20 31 0d 0c 12 28 20 |:group% |= 1...( |
|00001f10| 20 c9 20 22 46 4c 54 22 | 20 20 3a 63 6f 64 65 25 | . "FLT"| :code%|
|00001f20| 20 3d 20 25 30 30 30 30 | 3a 67 72 6f 75 70 25 20 | = %0000|:group% |
|00001f30| 3d 20 32 0d 0c 1c 28 20 | 20 c9 20 22 46 49 58 22 |= 2...( | . "FIX"|
|00001f40| 20 20 3a 63 6f 64 65 25 | 20 3d 20 25 30 30 30 31 | :code%| = %0001|
|00001f50| 3a 67 72 6f 75 70 25 20 | 3d 20 33 0d 0c 26 28 20 |:group% |= 3..&( |
|00001f60| 20 c9 20 22 57 46 53 22 | 20 20 3a 63 6f 64 65 25 | . "WFS"| :code%|
|00001f70| 20 3d 20 25 30 30 31 30 | 3a 67 72 6f 75 70 25 20 | = %0010|:group% |
|00001f80| 3d 20 34 0d 0c 30 28 20 | 20 c9 20 22 52 46 53 22 |= 4..0( | . "RFS"|
|00001f90| 20 20 3a 63 6f 64 65 25 | 20 3d 20 25 30 30 31 31 | :code%| = %0011|
|00001fa0| 3a 67 72 6f 75 70 25 20 | 3d 20 34 0d 0c 3a 28 20 |:group% |= 4..:( |
|00001fb0| 20 c9 20 22 57 46 43 22 | 20 20 3a 63 6f 64 65 25 | . "WFC"| :code%|
|00001fc0| 20 3d 20 25 30 31 30 30 | 3a 67 72 6f 75 70 25 20 | = %0100|:group% |
|00001fd0| 3d 20 34 0d 0c 44 28 20 | 20 c9 20 22 52 46 43 22 |= 4..D( | . "RFC"|
|00001fe0| 20 20 3a 63 6f 64 65 25 | 20 3d 20 25 30 31 30 31 | :code%| = %0101|
|00001ff0| 3a 67 72 6f 75 70 25 20 | 3d 20 34 0d 0c 4e 2e 20 |:group% |= 4..N. |
|00002000| 20 c9 20 22 43 4d 46 22 | 20 20 3a 63 6f 64 65 25 | . "CMF"| :code%|
|00002010| 20 3d 20 25 31 30 30 31 | 2b 65 25 3c 3c 32 3a 67 | = %1001|+e%<<2:g|
|00002020| 72 6f 75 70 25 20 3d 20 | 35 0d 0c 58 2e 20 20 c9 |roup% = |5..X. .|
|00002030| 20 22 43 4e 46 22 20 20 | 3a 63 6f 64 65 25 20 3d | "CNF" |:code% =|
|00002040| 20 25 31 30 31 31 2b 65 | 25 3c 3c 32 3a 67 72 6f | %1011+e|%<<2:gro|
|00002050| 75 70 25 20 3d 20 35 0d | 0c 62 28 20 20 c9 20 22 |up% = 5.|.b( . "|
|00002060| 41 44 46 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |ADF" :c|ode% = %|
|00002070| 30 30 30 30 3a 6d 6f 6e | 61 64 25 20 3d 20 30 0d |0000:mon|ad% = 0.|
|00002080| 0c 6c 28 20 20 c9 20 22 | 4d 55 46 22 20 20 3a 63 |.l( . "|MUF" :c|
|00002090| 6f 64 65 25 20 3d 20 25 | 30 30 30 31 3a 6d 6f 6e |ode% = %|0001:mon|
|000020a0| 61 64 25 20 3d 20 30 0d | 0c 76 28 20 20 c9 20 22 |ad% = 0.|.v( . "|
|000020b0| 53 55 46 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |SUF" :c|ode% = %|
|000020c0| 30 30 31 30 3a 6d 6f 6e | 61 64 25 20 3d 20 30 0d |0010:mon|ad% = 0.|
|000020d0| 0c 80 28 20 20 c9 20 22 | 52 53 46 22 20 20 3a 63 |..( . "|RSF" :c|
|000020e0| 6f 64 65 25 20 3d 20 25 | 30 30 31 31 3a 6d 6f 6e |ode% = %|0011:mon|
|000020f0| 61 64 25 20 3d 20 30 0d | 0c 8a 28 20 20 c9 20 22 |ad% = 0.|..( . "|
|00002100| 44 56 46 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |DVF" :c|ode% = %|
|00002110| 30 31 30 30 3a 6d 6f 6e | 61 64 25 20 3d 20 30 0d |0100:mon|ad% = 0.|
|00002120| 0c 94 28 20 20 c9 20 22 | 52 44 46 22 20 20 3a 63 |..( . "|RDF" :c|
|00002130| 6f 64 65 25 20 3d 20 25 | 30 31 30 31 3a 6d 6f 6e |ode% = %|0101:mon|
|00002140| 61 64 25 20 3d 20 30 0d | 0c 9e 28 20 20 c9 20 22 |ad% = 0.|..( . "|
|00002150| 50 4f 57 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |POW" :c|ode% = %|
|00002160| 30 31 31 30 3a 6d 6f 6e | 61 64 25 20 3d 20 30 0d |0110:mon|ad% = 0.|
|00002170| 0c a8 28 20 20 c9 20 22 | 52 50 57 22 20 20 3a 63 |..( . "|RPW" :c|
|00002180| 6f 64 65 25 20 3d 20 25 | 30 31 31 31 3a 6d 6f 6e |ode% = %|0111:mon|
|00002190| 61 64 25 20 3d 20 30 0d | 0c b2 28 20 20 c9 20 22 |ad% = 0.|..( . "|
|000021a0| 52 4d 46 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |RMF" :c|ode% = %|
|000021b0| 31 30 30 30 3a 6d 6f 6e | 61 64 25 20 3d 20 30 0d |1000:mon|ad% = 0.|
|000021c0| 0c bc 28 20 20 c9 20 22 | 46 4d 4c 22 20 20 3a 63 |..( . "|FML" :c|
|000021d0| 6f 64 65 25 20 3d 20 25 | 31 30 30 31 3a 6d 6f 6e |ode% = %|1001:mon|
|000021e0| 61 64 25 20 3d 20 30 0d | 0c c6 28 20 20 c9 20 22 |ad% = 0.|..( . "|
|000021f0| 46 44 56 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |FDV" :c|ode% = %|
|00002200| 31 30 31 30 3a 6d 6f 6e | 61 64 25 20 3d 20 30 0d |1010:mon|ad% = 0.|
|00002210| 0c d0 28 20 20 c9 20 22 | 46 52 44 22 20 20 3a 63 |..( . "|FRD" :c|
|00002220| 6f 64 65 25 20 3d 20 25 | 31 30 31 31 3a 6d 6f 6e |ode% = %|1011:mon|
|00002230| 61 64 25 20 3d 20 30 0d | 0c da 28 20 20 c9 20 22 |ad% = 0.|..( . "|
|00002240| 50 4f 4c 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |POL" :c|ode% = %|
|00002250| 31 31 30 30 3a 6d 6f 6e | 61 64 25 20 3d 20 30 0d |1100:mon|ad% = 0.|
|00002260| 0c e4 28 20 20 c9 20 22 | 4d 56 46 22 20 20 3a 63 |..( . "|MVF" :c|
|00002270| 6f 64 65 25 20 3d 20 25 | 30 30 30 30 3a 6d 6f 6e |ode% = %|0000:mon|
|00002280| 61 64 25 20 3d 20 31 0d | 0c ee 28 20 20 c9 20 22 |ad% = 1.|..( . "|
|00002290| 4d 4e 46 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |MNF" :c|ode% = %|
|000022a0| 30 30 30 31 3a 6d 6f 6e | 61 64 25 20 3d 20 31 0d |0001:mon|ad% = 1.|
|000022b0| 0c f8 28 20 20 c9 20 22 | 41 42 53 22 20 20 3a 63 |..( . "|ABS" :c|
|000022c0| 6f 64 65 25 20 3d 20 25 | 30 30 31 30 3a 6d 6f 6e |ode% = %|0010:mon|
|000022d0| 61 64 25 20 3d 20 31 0d | 0d 02 28 20 20 c9 20 22 |ad% = 1.|..( . "|
|000022e0| 52 4e 44 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |RND" :c|ode% = %|
|000022f0| 30 30 31 31 3a 6d 6f 6e | 61 64 25 20 3d 20 31 0d |0011:mon|ad% = 1.|
|00002300| 0d 0c 28 20 20 c9 20 22 | 53 51 54 22 20 20 3a 63 |..( . "|SQT" :c|
|00002310| 6f 64 65 25 20 3d 20 25 | 30 31 30 30 3a 6d 6f 6e |ode% = %|0100:mon|
|00002320| 61 64 25 20 3d 20 31 0d | 0d 16 28 20 20 c9 20 22 |ad% = 1.|..( . "|
|00002330| 4c 4f 47 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |LOG" :c|ode% = %|
|00002340| 30 31 30 31 3a 6d 6f 6e | 61 64 25 20 3d 20 31 0d |0101:mon|ad% = 1.|
|00002350| 0d 20 28 20 20 c9 20 22 | 4c 47 4e 22 20 20 3a 63 |. ( . "|LGN" :c|
|00002360| 6f 64 65 25 20 3d 20 25 | 30 31 31 30 3a 6d 6f 6e |ode% = %|0110:mon|
|00002370| 61 64 25 20 3d 20 31 0d | 0d 2a 28 20 20 c9 20 22 |ad% = 1.|.*( . "|
|00002380| 45 58 50 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |EXP" :c|ode% = %|
|00002390| 30 31 31 31 3a 6d 6f 6e | 61 64 25 20 3d 20 31 0d |0111:mon|ad% = 1.|
|000023a0| 0d 34 28 20 20 c9 20 22 | 53 49 4e 22 20 20 3a 63 |.4( . "|SIN" :c|
|000023b0| 6f 64 65 25 20 3d 20 25 | 31 30 30 30 3a 6d 6f 6e |ode% = %|1000:mon|
|000023c0| 61 64 25 20 3d 20 31 0d | 0d 3e 28 20 20 c9 20 22 |ad% = 1.|.>( . "|
|000023d0| 43 4f 53 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |COS" :c|ode% = %|
|000023e0| 31 30 30 31 3a 6d 6f 6e | 61 64 25 20 3d 20 31 0d |1001:mon|ad% = 1.|
|000023f0| 0d 48 28 20 20 c9 20 22 | 54 41 4e 22 20 20 3a 63 |.H( . "|TAN" :c|
|00002400| 6f 64 65 25 20 3d 20 25 | 31 30 31 30 3a 6d 6f 6e |ode% = %|1010:mon|
|00002410| 61 64 25 20 3d 20 31 0d | 0d 52 28 20 20 c9 20 22 |ad% = 1.|.R( . "|
|00002420| 41 53 4e 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |ASN" :c|ode% = %|
|00002430| 31 30 31 31 3a 6d 6f 6e | 61 64 25 20 3d 20 31 0d |1011:mon|ad% = 1.|
|00002440| 0d 5c 28 20 20 c9 20 22 | 41 43 53 22 20 20 3a 63 |.\( . "|ACS" :c|
|00002450| 6f 64 65 25 20 3d 20 25 | 31 31 30 30 3a 6d 6f 6e |ode% = %|1100:mon|
|00002460| 61 64 25 20 3d 20 31 0d | 0d 66 28 20 20 c9 20 22 |ad% = 1.|.f( . "|
|00002470| 41 54 4e 22 20 20 3a 63 | 6f 64 65 25 20 3d 20 25 |ATN" :c|ode% = %|
|00002480| 31 31 30 31 3a 6d 6f 6e | 61 64 25 20 3d 20 31 0d |1101:mon|ad% = 1.|
|00002490| 0d 70 1e 20 20 7f 20 85 | 20 31 2c 22 4e 6f 20 73 |.p. . .| 1,"No s|
|000024a0| 75 63 68 20 6d 6e 65 6d | 6f 6e 69 63 22 0d 0d 7a |uch mnem|onic"..z|
|000024b0| 05 cb 0d 0d 84 04 0d 0d | 8e 05 e1 0d 0d 98 04 0d |........|........|
|000024c0| 0d a2 4d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..M-----|--------|
|000024d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 0d ac 04 |--------|----....|
|00002510| 0d 0d b6 22 dd 20 f2 72 | 65 67 61 64 64 72 28 52 |...". .r|egaddr(R|
|00002520| 24 2c 52 25 2c f8 20 70 | 72 65 25 2c f8 20 77 62 |$,R%,. p|re%,. wb|
|00002530| 25 29 0d 0d c0 07 ea 20 | 85 0d 0d ca 3a e7 20 ac |%)..... |....:. .|
|00002540| 28 5a 25 20 80 20 25 31 | 30 29 20 8c 20 ee 20 85 |(Z% . %1|0) . . .|
|00002550| 20 ea 20 e7 20 9f 3c 3e | 32 36 20 f7 20 85 3a 85 | . . .<>|26 . .:.|
|00002560| 20 9f 2c f6 24 20 8b 20 | 52 25 28 33 29 20 3d 20 | .,.$ . |R%(3) = |
|00002570| 30 3a e1 0d 0d d4 04 0d | 0d de 1c 52 25 28 31 29 |0:......|...R%(1)|
|00002580| 20 3d 20 a4 67 65 74 72 | 65 67 28 52 24 28 31 29 | = .getr|eg(R$(1)|
|00002590| 2c 31 29 0d 0d e8 10 e7 | 20 52 24 28 33 29 3d 22 |,1).....| R$(3)="|
|000025a0| 22 20 8c 0d 0d f2 16 20 | 20 70 72 65 25 20 3d 20 |" ..... | pre% = |
|000025b0| 31 3a 77 62 25 20 3d 20 | 30 0d 0d fc 17 20 20 e7 |1:wb% = |0.... .|
|000025c0| 20 c0 52 24 28 32 29 2c | 31 29 3d 22 5b 22 20 8c | .R$(2),|1)="[" .|
|000025d0| 0d 0e 06 2f 20 20 20 20 | 52 25 28 32 29 20 3d 20 |.../ |R%(2) = |
|000025e0| a4 67 65 74 72 65 67 28 | c1 52 24 28 32 29 2c 32 |.getreg(|.R$(2),2|
|000025f0| 2c a9 28 52 24 28 32 29 | 29 2d 32 29 2c 32 29 0d |,.(R$(2)|)-2),2).|
|00002600| 0e 10 11 20 20 20 20 52 | 25 28 33 29 20 3d 20 30 |... R|%(3) = 0|
|00002610| 0d 0e 1a 07 20 20 cc 0d | 0e 24 12 20 20 20 20 52 |.... ..|.$. R|
|00002620| 25 28 32 29 20 3d 20 31 | 35 0d 0e 2e 20 20 20 20 |%(2) = 1|5... |
|00002630| 20 52 25 28 33 29 20 3d | 20 a0 28 52 24 28 32 29 | R%(3) =| .(R$(2)|
|00002640| 2b 22 2d 4e 25 2d 38 22 | 29 0d 0e 38 07 20 20 cd |+"-N%-8"|)..8. .|
|00002650| 0d 0e 42 05 cc 0d 0e 4c | 29 20 20 e7 20 c0 52 24 |..B....L|) . .R$|
|00002660| 28 33 29 2c 31 29 20 3d | 20 22 23 22 20 52 24 28 |(3),1) =| "#" R$(|
|00002670| 33 29 20 3d 20 c1 52 24 | 28 33 29 2c 32 29 0d 0e |3) = .R$|(3),2)..|
|00002680| 56 15 20 20 e7 20 c2 52 | 24 28 32 29 29 3d 22 5d |V. . .R|$(2))="]|
|00002690| 22 20 8c 0d 0e 60 18 20 | 20 20 20 70 72 65 25 20 |" ...`. | pre% |
|000026a0| 3d 20 30 3a 77 62 25 20 | 3d 20 30 0d 0e 6a 2f 20 |= 0:wb% |= 0..j/ |
|000026b0| 20 20 20 52 25 28 32 29 | 20 3d 20 a4 67 65 74 72 | R%(2)| = .getr|
|000026c0| 65 67 28 c1 52 24 28 32 | 29 2c 32 2c a9 28 52 24 |eg(.R$(2|),2,.(R$|
|000026d0| 28 32 29 29 2d 31 29 2c | 32 29 0d 0e 74 18 20 20 |(2))-1),|2)..t. |
|000026e0| 20 20 52 25 28 33 29 20 | 3d 20 a0 28 52 24 28 33 | R%(3) |= .(R$(3|
|000026f0| 29 29 0d 0e 7e 07 20 20 | cc 0d 0e 88 30 20 20 20 |))..~. |....0 |
|00002700| 20 70 72 65 25 20 3d 20 | 31 3a e7 20 c2 52 24 28 | pre% = |1:. .R$(|
|00002710| 33 29 29 3d 22 21 22 20 | 77 62 25 20 3d 20 31 20 |3))="!" |wb% = 1 |
|00002720| 8b 20 77 62 25 20 3d 20 | 30 0d 0e 92 24 20 20 20 |. wb% = |0...$ |
|00002730| 20 52 25 28 32 29 20 3d | 20 a4 67 65 74 72 65 67 | R%(2) =| .getreg|
|00002740| 28 c1 52 24 28 32 29 2c | 32 29 2c 32 29 0d 0e 9c |(.R$(2),|2),2)...|
|00002750| 29 20 20 20 20 52 25 28 | 33 29 20 3d 20 a0 28 c0 |) R%(|3) = .(.|
|00002760| 52 24 28 33 29 2c a9 28 | 52 24 28 33 29 29 2d 31 |R$(3),.(|R$(3))-1|
|00002770| 2d 77 62 25 29 29 0d 0e | a6 07 20 20 cd 0d 0e b0 |-wb%))..|.. ....|
|00002780| 20 20 20 e7 20 52 25 28 | 32 29 3d 31 35 20 52 25 | . R%(|2)=15 R%|
|00002790| 28 33 29 20 3d 20 52 25 | 28 33 29 2d 38 0d 0e ba |(3) = R%|(3)-8...|
|000027a0| 05 cd 0d 0e c4 2c e7 20 | 94 28 52 25 28 33 29 29 |.....,. |.(R%(3))|
|000027b0| 3e 31 30 32 30 20 85 20 | 32 2c 22 42 61 64 20 61 |>1020 . |2,"Bad a|
|000027c0| 64 64 72 65 73 73 20 6f | 66 66 73 65 74 22 0d 0e |ddress o|ffset"..|
|000027d0| ce 04 0d 0e d8 05 e1 0d | 0e e2 04 0d 0e ec 4d 2d |........|......M-|
|000027e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000027f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002820| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 0e f6 04 0d 0f 00 27 |--------|.......'|
|00002830| dd 20 f2 72 65 67 73 28 | 52 24 2c 67 72 6f 75 70 |. .regs(|R$,group|
|00002840| 25 2c 6d 6f 6e 61 64 25 | 2c 52 25 2c f8 20 69 6d |%,monad%|,R%,. im|
|00002850| 6d 25 29 0d 0f 0a 18 ea | 20 74 79 70 65 25 28 29 |m%).....| type%()|
|00002860| 3a de 20 74 79 70 65 25 | 28 33 29 0d 0f 14 04 0d |:. type%|(3).....|
|00002870| 0f 1e 40 f4 20 54 79 70 | 65 73 20 61 72 65 3a 20 |..@. Typ|es are: |
|00002880| 30 20 2d 20 4e 6f 74 68 | 69 6e 67 2c 20 31 20 2d |0 - Noth|ing, 1 -|
|00002890| 20 46 50 20 72 65 67 69 | 73 74 65 72 2c 20 32 20 | FP regi|ster, 2 |
|000028a0| 2d 20 41 52 4d 20 72 65 | 67 69 73 74 65 72 2c 0d |- ARM re|gister,.|
|000028b0| 0f 28 1e f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |.(.. | |
|000028c0| 33 20 2d 20 49 6d 6d 65 | 64 69 61 74 65 0d 0f 32 |3 - Imme|diate..2|
|000028d0| 0a c8 8e 20 b9 20 ca 0d | 0f 3c 47 20 20 c9 20 67 |... . ..|.<G . g|
|000028e0| 72 6f 75 70 25 20 3d 20 | 32 20 20 20 20 20 20 20 |roup% = |2 |
|000028f0| 20 20 20 20 20 20 20 3a | 74 79 70 65 25 28 31 29 | :|type%(1)|
|00002900| 20 3d 20 31 3a 74 79 70 | 65 25 28 32 29 20 3d 20 | = 1:typ|e%(2) = |
|00002910| 32 3a 74 79 70 65 25 28 | 33 29 20 3d 20 30 0d 0f |2:type%(|3) = 0..|
|00002920| 46 47 20 20 c9 20 67 72 | 6f 75 70 25 20 3d 20 33 |FG . gr|oup% = 3|
|00002930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 74 | | :t|
|00002940| 79 70 65 25 28 31 29 20 | 3d 20 32 3a 74 79 70 65 |ype%(1) |= 2:type|
|00002950| 25 28 32 29 20 3d 20 31 | 3a 74 79 70 65 25 28 33 |%(2) = 1|:type%(3|
|00002960| 29 20 3d 20 30 0d 0f 50 | 47 20 20 c9 20 67 72 6f |) = 0..P|G . gro|
|00002970| 75 70 25 20 3d 20 34 20 | 20 20 20 20 20 20 20 20 |up% = 4 | |
|00002980| 20 20 20 20 20 3a 74 79 | 70 65 25 28 31 29 20 3d | :ty|pe%(1) =|
|00002990| 20 32 3a 74 79 70 65 25 | 28 32 29 20 3d 20 30 3a | 2:type%|(2) = 0:|
|000029a0| 74 79 70 65 25 28 33 29 | 20 3d 20 30 0d 0f 5a 47 |type%(3)| = 0..ZG|
|000029b0| 20 20 c9 20 67 72 6f 75 | 70 25 20 3d 20 35 20 20 | . grou|p% = 5 |
|000029c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 74 79 70 | | :typ|
|000029d0| 65 25 28 31 29 20 3d 20 | 31 3a 74 79 70 65 25 28 |e%(1) = |1:type%(|
|000029e0| 32 29 20 3d 20 33 3a 74 | 79 70 65 25 28 33 29 20 |2) = 3:t|ype%(3) |
|000029f0| 3d 20 30 0d 0f 64 47 20 | 20 c9 20 67 72 6f 75 70 |= 0..dG | . group|
|00002a00| 25 20 3d 20 36 20 80 20 | 6d 6f 6e 61 64 25 20 3d |% = 6 . |monad% =|
|00002a10| 20 30 20 3a 74 79 70 65 | 25 28 31 29 20 3d 20 31 | 0 :type|%(1) = 1|
|00002a20| 3a 74 79 70 65 25 28 32 | 29 20 3d 20 31 3a 74 79 |:type%(2|) = 1:ty|
|00002a30| 70 65 25 28 33 29 20 3d | 20 33 0d 0f 6e 47 20 20 |pe%(3) =| 3..nG |
|00002a40| c9 20 67 72 6f 75 70 25 | 20 3d 20 36 20 20 20 20 |. group%| = 6 |
|00002a50| 20 20 20 20 20 20 20 20 | 20 20 3a 74 79 70 65 25 | | :type%|
|00002a60| 28 31 29 20 3d 20 31 3a | 74 79 70 65 25 28 32 29 |(1) = 1:|type%(2)|
|00002a70| 20 3d 20 33 3a 74 79 70 | 65 25 28 33 29 20 3d 20 | = 3:typ|e%(3) = |
|00002a80| 30 0d 0f 78 05 cb 0d 0f | 82 04 0d 0f 8c 0c 69 6d |0..x....|......im|
|00002a90| 6d 25 20 3d 20 30 0d 0f | 96 10 e3 20 49 25 20 3d |m% = 0..|... I% =|
|00002aa0| 20 31 20 b8 20 33 0d 0f | a0 15 20 20 e7 20 74 79 | 1 . 3..|.. . ty|
|00002ab0| 70 65 25 28 49 25 29 3d | 33 20 8c 0d 0f aa 32 20 |pe%(I%)=|3 ....2 |
|00002ac0| 20 20 20 e7 20 c0 52 24 | 28 49 25 29 2c 31 29 3c | . .R$|(I%),1)<|
|00002ad0| 3e 22 23 22 20 74 79 70 | 65 25 28 49 25 29 20 3d |>"#" typ|e%(I%) =|
|00002ae0| 20 31 20 8b 20 69 6d 6d | 25 20 3d 20 31 0d 0f b4 | 1 . imm|% = 1...|
|00002af0| 07 20 20 cd 0d 0f be 28 | 20 20 52 25 28 49 25 29 |. ....(| R%(I%)|
|00002b00| 20 3d 20 a4 67 65 74 72 | 65 67 28 52 24 28 49 25 | = .getr|eg(R$(I%|
|00002b10| 29 2c 74 79 70 65 25 28 | 49 25 29 29 0d 0f c8 05 |),type%(|I%))....|
|00002b20| ed 0d 0f d2 04 0d 0f dc | 05 e1 0d 0f e6 04 0d 0f |........|........|
|00002b30| f0 4d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.M------|--------|
|00002b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 0f fa 04 0d |--------|---.....|
|00002b80| 10 04 19 dd 20 a4 67 65 | 74 72 65 67 28 72 65 67 |.... .ge|treg(reg|
|00002b90| 24 2c 74 79 70 65 25 29 | 0d 10 0e 20 ea 20 72 65 |$,type%)|... . re|
|00002ba0| 67 25 2c 50 43 2c 70 63 | 3a 50 43 20 3d 20 31 35 |g%,PC,pc|:PC = 15|
|00002bb0| 3a 70 63 20 3d 20 31 35 | 0d 10 18 04 0d 10 22 0e |:pc = 15|......".|
|00002bc0| c8 8e 20 74 79 70 65 25 | 20 ca 0d 10 2c 09 20 20 |.. type%| ...,. |
|00002bd0| c9 20 30 0d 10 36 2d 20 | 20 20 20 e7 20 72 65 67 |. 0..6- | . reg|
|00002be0| 24 3c 3e 22 22 20 85 20 | 33 2c 22 53 75 70 65 72 |$<>"" . |3,"Super|
|00002bf0| 66 6c 75 6f 75 73 20 72 | 65 67 69 73 74 65 72 22 |fluous r|egister"|
|00002c00| 0d 10 40 10 20 20 20 20 | 72 65 67 25 20 3d 20 30 |..@. |reg% = 0|
|00002c10| 0d 10 4a 09 20 20 c9 20 | 31 0d 10 54 28 20 20 20 |..J. . |1..T( |
|00002c20| 20 e7 20 72 65 67 24 3d | 22 22 20 85 20 33 2c 22 | . reg$=|"" . 3,"|
|00002c30| 4d 69 73 73 69 6e 67 20 | 72 65 67 69 73 74 65 72 |Missing |register|
|00002c40| 22 0d 10 5e 31 20 20 20 | 20 e7 20 a4 74 6f 75 70 |"..^1 | . .toup|
|00002c50| 70 65 72 28 c0 72 65 67 | 24 29 29 3d 22 46 22 20 |per(.reg|$))="F" |
|00002c60| 80 20 a4 69 73 6e 75 6d | 28 c2 72 65 67 24 29 29 |. .isnum|(.reg$))|
|00002c70| 20 8c 0d 10 68 1a 20 20 | 20 20 20 20 72 65 67 25 | ...h. | reg%|
|00002c80| 20 3d 20 bb 28 c2 72 65 | 67 24 29 29 0d 10 72 09 | = .(.re|g$))..r.|
|00002c90| 20 20 20 20 cc 0d 10 7c | 18 20 20 20 20 20 20 72 | ...||. r|
|00002ca0| 65 67 25 20 3d 20 a0 28 | 72 65 67 24 29 0d 10 86 |eg% = .(|reg$)...|
|00002cb0| 09 20 20 20 20 cd 0d 10 | 90 2c 20 20 20 20 e7 20 |. ...|., . |
|00002cc0| 72 65 67 25 3c 30 20 84 | 20 72 65 67 25 3e 37 20 |reg%<0 .| reg%>7 |
|00002cd0| 85 20 33 2c 22 42 61 64 | 20 72 65 67 69 73 74 65 |. 3,"Bad| registe|
|00002ce0| 72 22 0d 10 9a 09 20 20 | c9 20 32 0d 10 a4 28 20 |r".... |. 2...( |
|00002cf0| 20 20 20 e7 20 72 65 67 | 24 3d 22 22 20 85 20 33 | . reg|$="" . 3|
|00002d00| 2c 22 4d 69 73 73 69 6e | 67 20 72 65 67 69 73 74 |,"Missin|g regist|
|00002d10| 65 72 22 0d 10 ae 41 20 | 20 20 20 e7 20 a9 28 72 |er"...A | . .(r|
|00002d20| 65 67 24 29 3c 34 20 80 | 20 a4 74 6f 75 70 70 65 |eg$)<4 .| .touppe|
|00002d30| 72 28 c0 72 65 67 24 2c | 31 29 29 3d 22 52 22 20 |r(.reg$,|1))="R" |
|00002d40| 80 20 a4 69 73 6e 75 6d | 28 c1 72 65 67 24 2c 32 |. .isnum|(.reg$,2|
|00002d50| 29 29 20 8c 0d 10 b8 1c | 20 20 20 20 20 20 72 65 |)) .....| re|
|00002d60| 67 25 20 3d 20 bb 28 c1 | 72 65 67 24 2c 32 29 29 |g% = .(.|reg$,2))|
|00002d70| 0d 10 c2 09 20 20 20 20 | cc 0d 10 cc 18 20 20 20 |.... |..... |
|00002d80| 20 20 20 72 65 67 25 20 | 3d 20 a0 28 72 65 67 24 | reg% |= .(reg$|
|00002d90| 29 0d 10 d6 09 20 20 20 | 20 cd 0d 10 e0 2d 20 20 |).... | ....- |
|00002da0| 20 20 e7 20 72 65 67 25 | 3c 30 20 84 20 72 65 67 | . reg%|<0 . reg|
|00002db0| 25 3e 31 35 20 85 20 33 | 2c 22 42 61 64 20 72 65 |%>15 . 3|,"Bad re|
|00002dc0| 67 69 73 74 65 72 22 0d | 10 ea 09 20 20 c9 20 33 |gister".|... . 3|
|00002dd0| 0d 10 f4 18 20 20 20 20 | c8 8e 20 a0 28 c1 72 65 |.... |.. .(.re|
|00002de0| 67 24 2c 32 29 29 20 ca | 0d 10 fe 1c 20 20 20 20 |g$,2)) .|.... |
|00002df0| 20 20 c9 20 30 20 20 20 | 3a 72 65 67 25 20 3d 20 | . 0 |:reg% = |
|00002e00| 25 30 30 30 0d 11 08 1c | 20 20 20 20 20 20 c9 20 |%000....| . |
|00002e10| 31 20 20 20 3a 72 65 67 | 25 20 3d 20 25 30 30 31 |1 :reg|% = %001|
|00002e20| 0d 11 12 1c 20 20 20 20 | 20 20 c9 20 32 20 20 20 |.... | . 2 |
|00002e30| 3a 72 65 67 25 20 3d 20 | 25 30 31 30 0d 11 1c 1c |:reg% = |%010....|
|00002e40| 20 20 20 20 20 20 c9 20 | 33 20 20 20 3a 72 65 67 | . |3 :reg|
|00002e50| 25 20 3d 20 25 30 31 31 | 0d 11 26 1c 20 20 20 20 |% = %011|..&. |
|00002e60| 20 20 c9 20 34 20 20 20 | 3a 72 65 67 25 20 3d 20 | . 4 |:reg% = |
|00002e70| 25 31 30 30 0d 11 30 1c | 20 20 20 20 20 20 c9 20 |%100..0.| . |
|00002e80| 35 20 20 20 3a 72 65 67 | 25 20 3d 20 25 31 30 31 |5 :reg|% = %101|
|00002e90| 0d 11 3a 1c 20 20 20 20 | 20 20 c9 20 30 2e 35 20 |..:. | . 0.5 |
|00002ea0| 3a 72 65 67 25 20 3d 20 | 25 31 31 30 0d 11 44 1c |:reg% = |%110..D.|
|00002eb0| 20 20 20 20 20 20 c9 20 | 31 30 20 20 3a 72 65 67 | . |10 :reg|
|00002ec0| 25 20 3d 20 25 31 31 31 | 0d 11 4e 28 20 20 20 20 |% = %111|..N( |
|00002ed0| 20 20 7f 20 85 20 32 2c | 22 42 61 64 20 69 6d 6d | . . 2,|"Bad imm|
|00002ee0| 65 64 69 61 74 65 20 63 | 6f 6e 73 74 61 6e 74 22 |ediate c|onstant"|
|00002ef0| 0d 11 58 09 20 20 20 20 | cb 0d 11 62 05 cb 0d 11 |..X. |...b....|
|00002f00| 6c 04 0d 11 76 0c 20 3d | 20 20 72 65 67 25 0d 11 |l...v. =| reg%..|
|00002f10| 80 04 0d 11 8a 4b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.....K--|--------|
|00002f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 11 94 |--------|-----...|
|00002f60| 04 0d 11 9e 2b dd 20 f2 | 6c 6f 61 64 73 74 6f 72 |....+. .|loadstor|
|00002f70| 65 28 f8 20 77 6f 72 64 | 25 2c 70 72 65 63 24 2c |e(. word|%,prec$,|
|00002f80| 52 25 2c 70 72 65 25 2c | 77 62 25 29 0d 11 a8 0b |R%,pre%,|wb%)....|
|00002f90| ea 20 70 72 65 63 25 0d | 11 b2 04 0d 11 bc 0e c8 |. prec%.|........|
|00002fa0| 8e 20 70 72 65 63 24 20 | ca 0d 11 c6 24 20 20 c9 |. prec$ |....$ .|
|00002fb0| 20 22 53 22 20 3a 70 72 | 65 63 25 20 3d 20 28 30 | "S" :pr|ec% = (0|
|00002fc0| 3c 3c 32 32 29 2b 28 30 | 3c 3c 31 35 29 0d 11 d0 |<<22)+(0|<<15)...|
|00002fd0| 24 20 20 c9 20 22 44 22 | 20 3a 70 72 65 63 25 20 |$ . "D"| :prec% |
|00002fe0| 3d 20 28 30 3c 3c 32 32 | 29 2b 28 31 3c 3c 31 35 |= (0<<22|)+(1<<15|
|00002ff0| 29 0d 11 da 24 20 20 c9 | 20 22 45 22 20 3a 70 72 |)...$ .| "E" :pr|
|00003000| 65 63 25 20 3d 20 28 31 | 3c 3c 32 32 29 2b 28 30 |ec% = (1|<<22)+(0|
|00003010| 3c 3c 31 35 29 0d 11 e4 | 24 20 20 c9 20 22 50 22 |<<15)...|$ . "P"|
|00003020| 20 3a 70 72 65 63 25 20 | 3d 20 28 31 3c 3c 32 32 | :prec% |= (1<<22|
|00003030| 29 2b 28 31 3c 3c 31 35 | 29 0d 11 ee 1b 20 20 7f |)+(1<<15|).... .|
|00003040| 20 85 20 31 2c 22 42 61 | 64 20 70 72 65 63 69 73 | . 1,"Ba|d precis|
|00003050| 69 6f 6e 22 0d 11 f8 05 | cb 0d 12 02 04 0d 12 0c |ion"....|........|
|00003060| 3f 77 6f 72 64 25 20 3d | 20 77 6f 72 64 25 20 84 |?word% =| word% .|
|00003070| 20 28 25 31 31 30 3c 3c | 32 35 29 20 84 20 28 70 | (%110<<|25) . (p|
|00003080| 72 65 25 3c 3c 32 34 29 | 20 84 20 28 77 62 25 3c |re%<<24)| . (wb%<|
|00003090| 3c 32 31 29 20 84 20 70 | 72 65 63 25 0d 12 16 2a |<21) . p|rec%...*|
|000030a0| e7 20 b4 28 52 25 28 33 | 29 29 3c 3e 2d 31 20 77 |. .(R%(3|))<>-1 w|
|000030b0| 6f 72 64 25 20 3d 20 77 | 6f 72 64 25 20 84 20 28 |ord% = w|ord% . (|
|000030c0| 31 3c 3c 32 33 29 0d 12 | 20 3e 77 6f 72 64 25 20 |1<<23)..| >word% |
|000030d0| 3d 20 77 6f 72 64 25 20 | 84 20 28 52 25 28 32 29 |= word% |. (R%(2)|
|000030e0| 3c 3c 31 36 29 20 84 20 | 28 52 25 28 31 29 3c 3c |<<16) . |(R%(1)<<|
|000030f0| 31 32 29 20 84 20 28 94 | 28 52 25 28 33 29 29 20 |12) . (.|(R%(3)) |
|00003100| 81 20 34 29 0d 12 2a 04 | 0d 12 34 05 e1 0d 12 3e |. 4)..*.|..4....>|
|00003110| 04 0d 12 48 4c 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...HL---|--------|
|00003120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 12 52 |--------|-----..R|
|00003160| 04 0d 12 5c 32 dd 20 f2 | 65 6e 63 6f 64 65 28 f8 |...\2. .|encode(.|
|00003170| 20 77 6f 72 64 25 2c 67 | 72 6f 75 70 25 2c 70 72 | word%,g|roup%,pr|
|00003180| 65 63 24 2c 72 6f 75 6e | 64 24 2c 52 25 2c 69 6d |ec$,roun|d$,R%,im|
|00003190| 6d 25 29 0d 12 66 04 0d | 12 70 11 e7 20 67 72 6f |m%)..f..|.p.. gro|
|000031a0| 75 70 25 3c 3e 34 20 8c | 0d 12 7a 10 20 20 c8 8e |up%<>4 .|..z. ..|
|000031b0| 20 70 72 65 63 24 20 ca | 0d 12 84 24 20 20 20 20 | prec$ .|...$ |
|000031c0| c9 20 22 53 22 3a 70 72 | 65 63 25 20 3d 20 28 30 |. "S":pr|ec% = (0|
|000031d0| 3c 3c 31 39 29 2b 28 30 | 3c 3c 37 29 0d 12 8e 24 |<<19)+(0|<<7)...$|
|000031e0| 20 20 20 20 c9 20 22 44 | 22 3a 70 72 65 63 25 20 | . "D|":prec% |
|000031f0| 3d 20 28 30 3c 3c 31 39 | 29 2b 28 31 3c 3c 37 29 |= (0<<19|)+(1<<7)|
|00003200| 0d 12 98 24 20 20 20 20 | c9 20 22 45 22 3a 70 72 |...$ |. "E":pr|
|00003210| 65 63 25 20 3d 20 28 31 | 3c 3c 31 39 29 2b 28 30 |ec% = (1|<<19)+(0|
|00003220| 3c 3c 37 29 0d 12 a2 24 | 20 20 20 20 c9 20 22 50 |<<7)...$| . "P|
|00003230| 22 3a 70 72 65 63 25 20 | 3d 20 28 31 3c 3c 31 39 |":prec% |= (1<<19|
|00003240| 29 2b 28 31 3c 3c 37 29 | 0d 12 ac 1d 20 20 20 20 |)+(1<<7)|.... |
|00003250| 7f 20 85 20 31 2c 22 42 | 61 64 20 70 72 65 63 69 |. . 1,"B|ad preci|
|00003260| 73 69 6f 6e 22 0d 12 b6 | 07 20 20 cb 0d 12 c0 11 |sion"...|. .....|
|00003270| 20 20 c8 8e 20 72 6f 75 | 6e 64 24 20 ca 0d 12 ca | .. rou|nd$ ....|
|00003280| 1b 20 20 20 20 c9 20 22 | 22 20 20 3a 72 6f 75 6e |. . "|" :roun|
|00003290| 64 25 20 3d 20 25 30 30 | 0d 12 d4 1b 20 20 20 20 |d% = %00|.... |
|000032a0| c9 20 22 50 22 20 3a 72 | 6f 75 6e 64 25 20 3d 20 |. "P" :r|ound% = |
|000032b0| 25 30 31 0d 12 de 1b 20 | 20 20 20 c9 20 22 4d 22 |%01.... | . "M"|
|000032c0| 20 3a 72 6f 75 6e 64 25 | 20 3d 20 25 31 30 0d 12 | :round%| = %10..|
|000032d0| e8 1b 20 20 20 20 c9 20 | 22 5a 22 20 3a 72 6f 75 |.. . |"Z" :rou|
|000032e0| 6e 64 25 20 3d 20 25 31 | 31 0d 12 f2 21 20 20 20 |nd% = %1|1...! |
|000032f0| 20 7f 20 85 20 31 2c 22 | 42 61 64 20 72 6f 75 6e | . . 1,"|Bad roun|
|00003300| 64 69 6e 67 20 6d 6f 64 | 65 22 0d 12 fc 07 20 20 |ding mod|e".... |
|00003310| cb 0d 13 06 05 cc 0d 13 | 10 0f 20 20 70 72 65 63 |........|.. prec|
|00003320| 25 20 3d 20 30 0d 13 1a | 10 20 20 72 6f 75 6e 64 |% = 0...|. round|
|00003330| 25 20 3d 20 30 0d 13 24 | 05 cd 0d 13 2e 04 0d 13 |% = 0..$|........|
|00003340| 38 41 77 6f 72 64 25 20 | 3d 20 77 6f 72 64 25 20 |8Aword% |= word% |
|00003350| 84 20 28 25 31 31 31 30 | 3c 3c 32 34 29 20 84 20 |. (%1110|<<24) . |
|00003360| 70 72 65 63 25 20 84 20 | 28 72 6f 75 6e 64 25 3c |prec% . |(round%<|
|00003370| 3c 35 29 20 84 20 28 69 | 6d 6d 25 3c 3c 33 29 0d |<5) . (i|mm%<<3).|
|00003380| 13 42 0a c8 8e 20 b9 20 | ca 0d 13 4c 12 20 20 c9 |.B... . |...L. .|
|00003390| 20 67 72 6f 75 70 25 20 | 3d 20 32 0d 13 56 3a 20 | group% |= 2..V: |
|000033a0| 20 20 20 77 6f 72 64 25 | 20 3d 20 77 6f 72 64 25 | word%| = word%|
|000033b0| 20 84 20 28 52 25 28 31 | 29 3c 3c 31 36 29 20 84 | . (R%(1|)<<16) .|
|000033c0| 20 28 52 25 28 32 29 3c | 3c 31 32 29 20 84 20 28 | (R%(2)<|<12) . (|
|000033d0| 31 3c 3c 34 29 0d 13 60 | 12 20 20 c9 20 67 72 6f |1<<4)..`|. . gro|
|000033e0| 75 70 25 20 3d 20 33 0d | 13 6a 34 20 20 20 20 77 |up% = 3.|.j4 w|
|000033f0| 6f 72 64 25 20 3d 20 77 | 6f 72 64 25 20 84 20 28 |ord% = w|ord% . (|
|00003400| 52 25 28 31 29 3c 3c 31 | 32 29 20 84 20 28 31 3c |R%(1)<<1|2) . (1<|
|00003410| 3c 34 29 20 84 20 52 25 | 28 32 29 0d 13 74 12 20 |<4) . R%|(2)..t. |
|00003420| 20 c9 20 67 72 6f 75 70 | 25 20 3d 20 34 0d 13 7e | . group|% = 4..~|
|00003430| 2c 20 20 20 20 77 6f 72 | 64 25 20 3d 20 77 6f 72 |, wor|d% = wor|
|00003440| 64 25 20 84 20 28 52 25 | 28 31 29 3c 3c 31 32 29 |d% . (R%|(1)<<12)|
|00003450| 20 84 20 28 31 3c 3c 34 | 29 0d 13 88 12 20 20 c9 | . (1<<4|).... .|
|00003460| 20 67 72 6f 75 70 25 20 | 3d 20 35 0d 13 92 39 20 | group% |= 5...9 |
|00003470| 20 20 20 77 6f 72 64 25 | 20 3d 20 77 6f 72 64 25 | word%| = word%|
|00003480| 20 84 20 28 52 25 28 31 | 29 3c 3c 31 36 29 20 84 | . (R%(1|)<<16) .|
|00003490| 20 28 25 31 31 31 31 3c | 3c 31 32 29 20 84 20 52 | (%1111<|<12) . R|
|000034a0| 25 28 32 29 0d 13 9c 1f | 20 20 c9 20 67 72 6f 75 |%(2)....| . grou|
|000034b0| 70 25 20 3d 20 36 20 80 | 20 6d 6f 6e 61 64 25 20 |p% = 6 .| monad% |
|000034c0| 3d 20 31 0d 13 a6 2b 20 | 20 20 20 77 6f 72 64 25 |= 1...+ | word%|
|000034d0| 20 3d 20 77 6f 72 64 25 | 20 84 20 28 52 25 28 31 | = word%| . (R%(1|
|000034e0| 29 3c 3c 31 32 29 20 84 | 20 52 25 28 32 29 0d 13 |)<<12) .| R%(2)..|
|000034f0| b0 12 20 20 c9 20 67 72 | 6f 75 70 25 20 3d 20 36 |.. . gr|oup% = 6|
|00003500| 0d 13 ba 39 20 20 20 20 | 77 6f 72 64 25 20 3d 20 |...9 |word% = |
|00003510| 77 6f 72 64 25 20 84 20 | 28 52 25 28 32 29 3c 3c |word% . |(R%(2)<<|
|00003520| 31 36 29 20 84 20 28 52 | 25 28 31 29 3c 3c 31 32 |16) . (R|%(1)<<12|
|00003530| 29 20 84 20 52 25 28 33 | 29 0d 13 c4 05 cb 0d 13 |) . R%(3|).......|
|00003540| ce 04 0d 13 d8 05 e1 0d | 13 e2 04 0d 13 ec 4b 2d |........|......K-|
|00003550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003590| 2d 2d 2d 2d 2d 2d 0d 13 | f6 04 0d 14 00 12 dd 20 |------..|....... |
|000035a0| a4 69 73 6e 75 6d 28 6e | 75 6d 24 29 0d 14 0a 13 |.isnum(n|um$)....|
|000035b0| ea 20 61 6e 73 25 2c 49 | 25 2c 63 68 61 72 24 0d |. ans%,I|%,char$.|
|000035c0| 14 14 04 0d 14 1e 0c 61 | 6e 73 25 20 3d 20 b9 0d |.......a|ns% = ..|
|000035d0| 14 28 14 e3 20 49 25 3d | 31 20 b8 20 a9 28 6e 75 |.(.. I%=|1 . .(nu|
|000035e0| 6d 24 29 0d 14 32 19 20 | 20 63 68 61 72 24 20 3d |m$)..2. | char$ =|
|000035f0| 20 c1 6e 75 6d 24 2c 49 | 25 2c 31 29 0d 14 3c 26 | .num$,I|%,1)..<&|
|00003600| 20 20 e7 20 63 68 61 72 | 24 3c 22 30 22 20 84 20 | . char|$<"0" . |
|00003610| 63 68 61 72 24 3e 22 39 | 22 20 61 6e 73 25 20 3d |char$>"9|" ans% =|
|00003620| 20 a3 0d 14 46 05 ed 0d | 14 50 04 0d 14 5a 0a 3d | ...F...|.P...Z.=|
|00003630| 20 61 6e 73 25 0d 14 64 | 04 0d 14 6e 4b 2d 2d 2d | ans%..d|...nK---|
|00003640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003680| 2d 2d 2d 2d 0d 14 78 04 | 0d 14 82 13 dd 20 a4 69 |----..x.|..... .i|
|00003690| 73 73 6e 75 6d 28 6e 75 | 6d 24 29 0d 14 8c 15 ea |ssnum(nu|m$).....|
|000036a0| 20 73 74 61 72 74 25 2c | 49 25 2c 63 68 61 72 24 | start%,|I%,char$|
|000036b0| 0d 14 96 04 0d 14 a0 1f | 73 74 61 72 74 25 20 3d |........|start% =|
|000036c0| 20 31 3a 63 68 61 72 24 | 20 3d 20 c0 6e 75 6d 24 | 1:char$| = .num$|
|000036d0| 2c 31 29 0d 14 aa 1c c8 | 95 20 63 68 61 72 24 3d |,1).....|. char$=|
|000036e0| 22 2b 22 20 84 20 63 68 | 61 72 24 3d 22 2d 22 0d |"+" . ch|ar$="-".|
|000036f0| 14 b4 11 20 20 73 74 61 | 72 74 25 20 2b 3d 20 31 |... sta|rt% += 1|
|00003700| 0d 14 be 1b 20 20 e7 20 | 73 74 61 72 74 25 3e a9 |.... . |start%>.|
|00003710| 28 6e 75 6d 24 29 20 3a | 3d 20 a3 0d 14 c8 1d 20 |(num$) :|= ..... |
|00003720| 20 63 68 61 72 24 20 3d | 20 c1 6e 75 6d 24 2c 73 | char$ =| .num$,s|
|00003730| 74 61 72 74 25 2c 31 29 | 0d 14 d2 05 ce 0d 14 dc |tart%,1)|........|
|00003740| 04 0d 14 e6 19 e3 20 49 | 25 3d 73 74 61 72 74 25 |...... I|%=start%|
|00003750| 20 b8 20 a9 28 6e 75 6d | 24 29 0d 14 f0 19 20 20 | . .(num|$).... |
|00003760| 63 68 61 72 24 20 3d 20 | c1 6e 75 6d 24 2c 49 25 |char$ = |.num$,I%|
|00003770| 2c 31 29 0d 14 fa 22 20 | 20 e7 20 63 68 61 72 24 |,1)..." | . char$|
|00003780| 3c 22 30 22 20 84 20 63 | 68 61 72 24 3e 22 39 22 |<"0" . c|har$>"9"|
|00003790| 20 3a 3d 20 a3 0d 15 04 | 05 ed 0d 15 0e 04 0d 15 | := ....|........|
|000037a0| 18 07 3d 20 b9 0d 15 22 | 04 0d 15 2c 4b 2d 2d 2d |..= ..."|...,K---|
|000037b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000037c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000037d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000037e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000037f0| 2d 2d 2d 2d 0d 15 36 04 | 0d 15 40 13 dd 20 a4 69 |----..6.|..@.. .i|
|00003800| 73 66 6e 75 6d 28 6e 75 | 6d 24 29 0d 15 4a 1c ea |sfnum(nu|m$)..J..|
|00003810| 20 73 74 61 72 74 25 2c | 49 25 2c 70 6f 69 6e 74 | start%,|I%,point|
|00003820| 24 2c 63 68 61 72 24 0d | 15 54 04 0d 15 5e 1f 73 |$,char$.|.T...^.s|
|00003830| 74 61 72 74 25 20 3d 20 | 31 3a 63 68 61 72 24 20 |tart% = |1:char$ |
|00003840| 3d 20 c0 6e 75 6d 24 2c | 31 29 0d 15 68 1c c8 95 |= .num$,|1)..h...|
|00003850| 20 63 68 61 72 24 3d 22 | 2b 22 20 84 20 63 68 61 | char$="|+" . cha|
|00003860| 72 24 3d 22 2d 22 0d 15 | 72 11 20 20 73 74 61 72 |r$="-"..|r. star|
|00003870| 74 25 20 2b 3d 20 31 0d | 15 7c 1b 20 20 e7 20 73 |t% += 1.|.|. . s|
|00003880| 74 61 72 74 25 3e a9 28 | 6e 75 6d 24 29 20 3a 3d |tart%>.(|num$) :=|
|00003890| 20 a3 0d 15 86 1d 20 20 | 63 68 61 72 24 20 3d 20 | ..... |char$ = |
|000038a0| c1 6e 75 6d 24 2c 73 74 | 61 72 74 25 2c 31 29 0d |.num$,st|art%,1).|
|000038b0| 15 90 05 ce 0d 15 9a 04 | 0d 15 a4 0e 70 6f 69 6e |........|....poin|
|000038c0| 74 25 20 3d 20 a3 0d 15 | ae 19 e3 20 49 25 3d 73 |t% = ...|... I%=s|
|000038d0| 74 61 72 74 25 20 b8 20 | a9 28 6e 75 6d 24 29 0d |tart% . |.(num$).|
|000038e0| 15 b8 19 20 20 63 68 61 | 72 24 20 3d 20 c1 6e 75 |... cha|r$ = .nu|
|000038f0| 6d 24 2c 49 25 2c 31 29 | 0d 15 c2 13 20 20 e7 20 |m$,I%,1)|.... . |
|00003900| 63 68 61 72 24 3d 22 2e | 22 20 8c 0d 15 cc 15 20 |char$=".|" ..... |
|00003910| 20 20 20 e7 20 70 6f 69 | 6e 74 25 20 3a 3d 20 a3 | . poi|nt% := .|
|00003920| 0d 15 d6 12 20 20 20 20 | 70 6f 69 6e 74 25 20 3d |.... |point% =|
|00003930| 20 b9 0d 15 e0 07 20 20 | cc 0d 15 ea 24 20 20 20 | ..... |....$ |
|00003940| 20 e7 20 63 68 61 72 24 | 3c 22 30 22 20 84 20 63 | . char$|<"0" . c|
|00003950| 68 61 72 24 3e 22 39 22 | 20 3a 3d 20 a3 0d 15 f4 |har$>"9"| := ....|
|00003960| 07 20 20 cd 0d 15 fe 05 | ed 0d 16 08 04 0d 16 12 |. .....|........|
|00003970| 07 3d 20 b9 0d 16 1c 04 | 0d 16 26 4c 2d 2d 2d 2d |.= .....|..&L----|
|00003980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000039a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000039b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000039c0| 2d 2d 2d 2d 0d 16 30 04 | 0d 16 3a 24 dd 20 a4 69 |----..0.|..:$. .i|
|000039d0| 73 65 78 70 6e 75 6d 28 | 6e 75 6d 24 2c f8 20 6d |sexpnum(|num$,. m|
|000039e0| 61 6e 74 24 2c f8 20 65 | 78 70 25 29 0d 16 44 0f |ant$,. e|xp%)..D.|
|000039f0| ea 20 70 6f 73 25 2c 65 | 78 70 24 0d 16 4e 04 0d |. pos%,e|xp$..N..|
|00003a00| 16 58 17 6d 61 6e 74 24 | 20 3d 20 22 22 3a 65 78 |.X.mant$| = "":ex|
|00003a10| 70 25 20 3d 20 30 0d 16 | 62 04 0d 16 6c 23 70 6f |p% = 0..|b...l#po|
|00003a20| 73 25 20 3d 20 a7 6e 75 | 6d 24 2c 22 45 22 29 3a |s% = .nu|m$,"E"):|
|00003a30| e7 20 70 6f 73 25 3d 30 | 20 3a 3d 20 a3 0d 16 76 |. pos%=0| := ...v|
|00003a40| 04 0d 16 80 19 6d 61 6e | 74 24 20 3d 20 c0 6e 75 |.....man|t$ = .nu|
|00003a50| 6d 24 2c 70 6f 73 25 2d | 31 29 0d 16 8a 19 65 78 |m$,pos%-|1)....ex|
|00003a60| 70 24 20 20 3d 20 c1 6e | 75 6d 24 2c 70 6f 73 25 |p$ = .n|um$,pos%|
|00003a70| 2b 31 29 0d 16 94 2a e7 | 20 a4 69 73 73 6e 75 6d |+1)...*.| .issnum|
|00003a80| 28 65 78 70 24 29 20 8c | 20 65 78 70 25 20 3d 20 |(exp$) .| exp% = |
|00003a90| bb 28 65 78 70 24 29 20 | 8b 20 3d 20 a3 0d 16 9e |.(exp$) |. = ....|
|00003aa0| 1a e7 20 ac 20 a4 69 73 | 66 6e 75 6d 28 6d 61 6e |.. . .is|fnum(man|
|00003ab0| 74 24 29 20 3d 20 a3 0d | 16 a8 04 0d 16 b2 07 3d |t$) = ..|.......=|
|00003ac0| 20 b9 0d 16 bc 04 0d 16 | c6 4c 2d 2d 2d 2d 2d 2d | .......|.L------|
|00003ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b10| 2d 2d 0d 16 d0 04 0d 16 | da 17 dd 20 a4 74 6f 75 |--......|... .tou|
|00003b20| 70 70 65 72 28 73 74 72 | 69 6e 67 24 29 0d 16 e4 |pper(str|ing$)...|
|00003b30| 0e ea 20 49 25 2c 63 68 | 61 72 24 0d 16 ee 04 0d |.. I%,ch|ar$.....|
|00003b40| 16 f8 17 e3 20 49 25 3d | 31 20 b8 20 a9 28 73 74 |.... I%=|1 . .(st|
|00003b50| 72 69 6e 67 24 29 0d 17 | 02 1c 20 20 63 68 61 72 |ring$)..|.. char|
|00003b60| 24 20 3d 20 c1 73 74 72 | 69 6e 67 24 2c 49 25 2c |$ = .str|ing$,I%,|
|00003b70| 31 29 0d 17 0c 3b 20 20 | e7 20 63 68 61 72 24 3e |1)...; |. char$>|
|00003b80| 3d 22 61 22 20 80 20 63 | 68 61 72 24 3c 3d 22 7a |="a" . c|har$<="z|
|00003b90| 22 20 8c 20 63 68 61 72 | 24 20 3d 20 bd 28 97 28 |" . char|$ = .(.(|
|00003ba0| 63 68 61 72 24 29 20 80 | 20 26 44 46 29 0d 17 16 |char$) .| &DF)...|
|00003bb0| 1c 20 20 c1 73 74 72 69 | 6e 67 24 2c 49 25 2c 31 |. .stri|ng$,I%,1|
|00003bc0| 29 20 3d 20 63 68 61 72 | 24 0d 17 20 05 ed 0d 17 |) = char|$.. ....|
|00003bd0| 2a 04 0d 17 34 0d 3d 20 | 73 74 72 69 6e 67 24 0d |*...4.= |string$.|
|00003be0| ff | |. | |
+--------+-------------------------+-------------------------+--------+--------+
